&* PROGRAMMING 
re-face 



PAGE 




PREFACE 

This manual is a tutorial introduction to the PL/M langauge, as 
it applies to the INTEL 8008 and 8080 processors. To facilitate a 
first reading. , it has a spiral organization: in the course of a 
front-to-back reading, the same topics will arise more than once , to 
be explained more fully on the later occasions. 

It is also expected that the PL/M programmer will keep this 

manual at hand for reference purposes. The table of contents has 

been elaborated to encourage such use. For information on the. use 

■of the PL/M compilers themselves, the reader is referred to the 

appropriate Compiler User's Manual; 




PL/M is a registered trademark of INTEL Corporation 
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1. INTRODUCTION 

1.1 What is PL/M? 

PL/M is a high-level programming language especially designed 
to simplify the task of system programming for the INTEL 8-bit 
family of microcomputers — the 8008 and the 8080. 

PL/M provides an effective software tool suited to the 

requirements of the microcomputer system designer and implementor. 
It gives the programmer control of the processor sufficient for the 
needs of system programming, but provides automatic control of many 
specific processor resources — e.g., registers, memory, and stack. 
In consequence, PL/M programs can enjoy a high degree of portability 
between systems. ^ 

PL/M has been designed to facilitate the use of modern^ 
techniques in structured programming. These technioues can lead to 
rapid system development and checkout, straightforward maintenance 
and modification, and a product of high reliability. 

1.2 Overview of the Language 

A PL/M program is a sequence of "declarations" and "executable 
statements". 

The declarations allow the programmer to -control allocation of 
storage, define simple textual substitutions (macros) , and define 
procedures. PL/M is a "block structured" language: procedures may 
contain further declarations which control storage allocation and 
define other procedures. 

The procedure definition facility of PL/M allows modular 
programming: a program can be divided into sections (e.g. teletype 
input, conversion from binary to decimal forms, and printing output 
messages). Each of these sections is written as a' PL/M procedure. 
Such procedures are conceptually simple, easy .to formulate and 
debug, and easily incorporated into a large program. They may form 
a basis for a procedure library, if a family of similar programs is 
being developed. 

PL/M handles two kinds of data, its two basic "data types": 
BYTE and ADDRESS. A BYTE variable or constant is one that can be 
represented as an 8-bit quantity; an ADDRESS variable or constant is 
a 16-bit or double-byte quantity. The programmer can DECLARE 
variable names to represent BYTE or ADDRESS values. One can also 
declare vectors (or arrays) of type BYTE or ADDRESS. 

In general , executable statements ' specify the computational 
Processes that are to take place. To achieve this, arithmetic, 
logical (boolean), and comparison (relational) operators are defined 
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for variables and constants of both types 
operators and operands are combined to 
resemble those of elementary algebra. 
expression 
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form 
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and ADDRESS) . These 
EXPRESSIONS, Which 
example , the PL/M 



X * (Y ""- 3) / R 

represents this calculation: the value of X multiplied by the 
quantity Y-3, divided by the value of R. Expressions are a major 
component of PL/M statements.- A simple statement form is the PL/M 
ASSIGNMENT statement, which computes a result and stores it in a 
memory location defined by a variable name. The assignment 



= X * (Y - 3) / R 



first causes the computation to 
described above. The result of 
memory location labeled by the 

Other statements in PL/M 
branching , loop control , and 
passing. The flow of program ex 
powerful control structures 
block-structured nature of th 
statements read and write 8- 
input and output ports. Procedu 
basic input and output statem 
operations. 



the right of the 
, this computation 
ariable name. 'Q*. 



equals 
is then 



sign, as 
saved in a 



perform conditional tests and 

procedure invocation with parameter 
ecu t ion is specified by means of 
that take advantage of the 
e language. Input and output" 
bit values from and to 8008 and 8080 
res can be defined which use these 
ents to perform more complicated I/O 



A method of automatic text-substitution (more specifically, 
"compile- time macro facility") is also provided in PL/M. 
programmer can declare a symbolic name to be completely 
to an arbitrary sequence of characters. As 
name is encountered by the compiler, the 
is substituted , so the compiler actually processes the substituted 
character string instead of the symbolic name. 
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each occurence of the 
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M -2. BASIC CONSTITUENTS OF A PL/M PROGRAM 



PL/M programs are written free-form. That is, the input lines 
are column-independent and spaces may be freely inserted between the 
elements of the program. 

2.1 PL/M Character Set 

The character set recognized by PL/M is a subset of both ASCII 
and EBCDIC character sets. The valid PL/M characters consist of the 
alphanumer ics 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

0123456789 

# 

along with the special characters 

$=./<)+-'* r < > : t 

All other characters are unrecognized by PL/M, in the sense that a 
blank is substituted for each such character, 

<rv*x Special characters and combinations of special characters 'have 
; fi particular meanings in a PL/M program, as-shown in Appendix C. 

2.2 Identifiers and Reserved Words 

A PL/M identifier is used to name variables, procedures, 
macros, and statement labels. An identifier may be up to 31 
characters in length, the first of which must be alphabetic, and the 
remainder either alphabetic or numeric. Imbedded dollar signs are 
ignored by the PL/M compiler, and are used to . improve the 
readability of an identifier. An identifier containing a dollar 
sign is exactly equivalent to the same identifier with the dollar 
sign deleted. Examples of valid identifiers are 

X 

GAMMA 

L0NGIDENTIFIERWITHNUMBER3 / - 

INPUT$COUNT 
INPUTCOUNT 

where the PL/M compiler will regard the final 2 examples as 
instances of the same identifier. 

There are a number of otherwise valid identifiers, whose 
meanings are fixed in advance. Because they are actually part of 
the PL/M language, they may not be used as programmer-defined 
identifiers. A list of such RESERVED WORDS is given in Appendix D. 
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Blanks may be inserted freely around identifiers, reserved 
words, and special characters. Blanks are not necessary, however, 
when identifiers or reserved words are separated by special 
characters or delimiters. Thus the expression 



is equivalent to 



( Y - 3 ) / R 



X*(Y-3)/R 



T\ 



2.3 Comments 

Explanatory remarks should be interleaved with PL/M program 
text, to improve readability and provide program documentation. 
This is the purpose of the COMMENT construction. A PL/M comment is 
a sequence of characters (from the PL/M character set) delimited on 
the left by the character pair /* and on the right by the character 
pair */• These delimiters instruct the compiler to ignore any text 
bewteen them, and not to consider such text part of the program 
proper. A comment may appear anywhere a space character may; thus 
comments may be freely distributed throughout a PL/M program. There 
is only one restriction on the placement of a comment: it may not 
begin or end inside a character string. Here is a sample (if 
atypical) PL/M comment: 

/* THIS IS A COMMENT ABOUT COMMENTS */ 



f / 
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3. PL/M PROGRAM ORGANIZATION 

STATEMENTS are the building blocks of a PL/M program. A PL/M 
statement either defines a computational entity, or specifies a 
computation to be performed. For example, the PL/M statement 

DECLARE X BYTE; 

defines a variable named X that has a single-byte (8-bit) value. 
The PL/M statement . 

X = 3*(Y + Z); . . 

causes the computation of the arithmetic quantity, 3 times the sum 
of Y and Z, and the assignment of that quantity as the new value of 
the variable X. PL/M statements are frequently (but not 
necessarily) written one to a line, and invariably terminate witn 
semicolons. 

A PL/M program comprises a sequence of PL/M statements, 
followed by the special identifier EOF. In the absence of 
statements specifying otherwise, the statements of a PL/M program 
are executed sequentially, in the order of their appearance. For 
example, the following program fragment is a sequence of* two 
statements: 

X = 3; 

Y = 4+X; 

Two successive actions are specified: first, 3 becomes the current 
value of the variable X; second, a new value for the variable Y is 
calculated by adding 4 to the current' -value of X (in vthis. case 3, 
for a result of 7). It is obviqus^ that in a different sequence, 
these two statements could have a very different effect. 

The strictly sequential execution of statements is interrupted 
by, for example, an iF-statement: 

IF A>63 THEN X=3; . 
ELSE X=9; ..." 

Y =. 4+X? 

Here the statement 'X=3' is executed only if the current value of A 
is greater than 63; the statement 'X=9' is executed only if the 
current value of A is less than or equal to 63; and the statement Y 
= 4+X' is executed always. 

■ 

Statements may be collected together in groups, delimited by 
the reserved words DO and END, to form compound statements, or . 
blocks. These blocks are then treated .as single statements with 
respect to the flow of program control. Such a group could, for 
example, be a part of a conditional statement: 
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IF A>B THEN 
DO; 

A = B; 
B = C; 

END; 

This statement performs the two assignments to A and B only if A is 
greater than B to start with. 

Statements may also be grouped to form a 'procedure * s whose 
execution may then be called for from elsewhere in the program. The 
following procedure, for example, calculates the sum of the squares 
of its two arguments: 

SUM$SQUARE: PROCEDURE (A, B) ADDRESS; 

DECLARE (A, B) ADDRESS; 

RETURN A*A + B*B; 
END SUM$ SQUARE; 

After this procedure has been defined, it is available for use — 
e.g., for. calculating new values for variables. For example, the 
sequence of statements 

X = 3; 

Y = 5 + SOMSSQOARE (X, 4) ; 

results in Y having the new value 30. 

The exact details of various kinds of statements and other PL/M 
language^ constructs — assignments, conditional statements, groups, 
declarations, procedures, and so forth — are given in the following 
sections. 
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4. PL/M DATA ELEMENTS . 

PL/M data elements can be either variables or constants. 
Variables are PL/M identifiers whose values may change during 
execution of the program, while constants have fixed values. The 
expression 

X * (Y - 3) / R 

involves the variables X, Y, and R, and the constant 3. 

4.1 Numeric Constants 

A constant is a value known at compile-time , which does not 
change during execution of the program. A constant is either a 
number or a character string. Numeric constants may be expressed as 
binary, octal , decimal , .and hexadecimal numbers. 



one 



In general, the 
of the letters 



base (or radix) of a number is represented by 



B D H 



following the number. The letter B denotes a bina 
letters and Q signal octal constants/The lette 
follow decimal numbers . Hexadecimal numbers consi 
hexadecimal digits (0, 1, 2, 3, 4, 5, 6," 7, 8, 9, 
terminated by the letter H. The leading character 
number must be a numeric digit, to avoid con 
identifier ; a leading zero is always sufficient . 
followed by one of the letters B, 0, Of D, or 
decimal. Numbers must be representable in 16 bits, 
are valid constants in PL/M: 

2 33Q 110B 33FH 55D 55 0BF3H 65535 



ry constant"; the 

r D may optionally 

st of seouences of 

A, B, C, D, E, F) 

of a hexadecimal 

fusion with a PL/M 

Any number not 

H is assumed to be 

The following 



The dollar sign may be freely inserted between the characters 
of a constant to improve readability. The two following binary 
constants are exactly equivalent: 

11110110011B 
111$1011$0011B 



4.2 Character String Constants 

Character strings are denoted by PL/M characters enclosed 
within apostrophes. (To include an apostrophe in a string, write it 
as a double apostrophe: e.g.. the string " '0' comprises 2 
characters, an apostrophe followed by a 0.) The PL/M compiler 
represents character strings in memory as ASCII codes, one 7-bit 
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character code to each 8-bit byte, with a high-order zero bit. 
Strings of length 1 translate to single-byte values; strings of. 
length 2 translate to double-byte values. For example, 

'A' is equivalent to 41H 
'AG' is equivalent to 4147H 

(see appendix for ASCII character codes). Character strings longer 
than 2 characters cannot, of course, be used as BYTE or ADDRESS 
values. But they will turn out to-be useful in conjunction with the 
dot operator, with the INITIAL attribute , and with the DATA 
declaration. 

■ 
4.3 Variables and Type Declarations 

Each variable used in a PL/M program must be declared in a 
'declaration statement'" before (earlier in the program text than) 
its use in expressions. This declaration defines the variable and 
gives necessary information about it. 

A PL/M variable takes one of two 'types': type BYTE, or type 
ADDRESS. Each BYTE data element is an 8-bit, single-byte object; 
each ADDRESS data element is a 16-bit, double-byte object. The type 
of each variable must be formally declared in its declaration 
statement. 

A declaration of a variable (or a list of variables) begins 
with the reserved word DECLARE. Each single identifier, or list of 
identifiers enclosed in parentheses, is followed by one of the two 
reserved words BYTE or ADDRESS. Sample PL/M declarations are 

DECLARE X BYTE; 
DECLARE (Q f R, S) BYTE; 
DECLARE (U, V, W) ADDRESS; 

Additional facilities are present in PL/M for declaring 
vectors, macros, labels, and data lists. These facilities are 
discussed in later sections. 
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5. WELL-FORMED EXPRESSIONS AND ASSIGNMENTS 

PL/M expressions can now be more completely defined, ^ A 
well- formed expression consists of basic data elements' combined 
through the various arithmetic, logical , and relational operators, 
in accordance with simple algebraic notation. Examples are * 

A + B 

A + B - C 

A*B + C/D 



5.1 Arithmetic Operators 

There are 7 arithmetic operators in PL/M. These are 
+ - PLUS MINUS * /. MOD 



All of the above operators perform 
.either byte or address values. 



unsigned binary arithmetic on 



The operators + and - perform addition and subtraction. If 
both operands are of type BYTE, the operation is done in 8-bit 
arithmetic and the result is of type BYTE. If either operand is of 
$| type ADDRESS, the other operand, if it is of type BYTE, will be 
extended by 8 high-order zero bits, and the operation is then 
performed in 16-bit arithmetic, returning a value of type ADDRESS. 
A unary '-' operator is also defined in PL/M. Its effect is such 
is equivalent to (0-A) . Thus -1, for example, is 
to 0-1," resulting in the BYTE value 255 or 0FFH. PLUS 
perform similarly to + and -, but take account of the 
of the CPU hardware carry flag in performing the. 



that (-A) 
equivalent 
and MINUS 
current setting 
operation. 



The operators * and / per 
and division , on operands o 
always of type ADDRESS, In 
occurs during multiplication, 
operator always rounds down to 
division by zero is undefin 
carry flag by these operations 
to /, except that the resul 
from the division, but the 



form unsigned 
f type BYTE or 
the 
the 

an 
ed. 

is 
t of 



binary mult 

ADDRESS. The 

event that arithmetic 

re.sult is undefined. Th 

integer result, and the 

(The setting of the 808 

undefined.) MOD performs 

the operation is not th 



iplication 

result is 

overflow 

e division 

result of 

B hardware 

similarly 

Quotient 



remainder. 



5.2 Logical Operators 

There are 4 logical (boolean) operators in PL/M. These are 

NOT AND OR XOP 

These operators perform logical operations on 8 or 16 bits in 
parallel. NOT is a unary operator, taking one operand only. It 
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produces a result in which each bit is the complement of the 
corresponding bit of its operand. The remaining operators each take 
2 operands, and perform bitwise AND, - OP, and EXCLUSIVE OR 
respectively. If both operands are of type BYTE, the operation is 
an 8-bit ooeration, and delivers a result of type BYTE. If at least 
one operand is of type ADDRESS, the operation i§ a 16-bit operation, 
and delivers a result of type ADDRESS, In this case,, the BYTE 
operand, if any, is first extended to 16 bits by the addition of 8 
high-order zero bits. Examples are 



10101010B 
10101010B 
1B101010B 



NOT 11001100B 
AND 11001100B 
OR 11001100B 
XOR 11001100B 



returns 
returns 
returns 
returns 



00110011B 
10001000B 
11101110B 
01100110B 



5.3 Relational Operators 

Relational operators are used to compare PL/M values. They are 



< 
> 

< = 
> = 
<> 



less than 
greater than 
less than or 
greater than 
not equal to 
equals 



equal to" 
or equal 



to 



Relational operators are always binary operators, taking two 
operands. The operands may be of type BYTE or ADDRESS. The 
comparison is always performed assuming that the operands are 
unsigned binary integers. If the specified relation between the 
operands holds, a value of 0FFH is returned, otherwise the r.esult is 
00H. Thus in all cases the result is of type BYTE, with all 8 bits 
set to 1 for a true condition, and to for a false condition. For 
example: 



(6 > 5) 

(6 <= 4) 

(6 > 5) OR {1 > 2) 

(6 > (4+5)) OR (1 



> 2) 



returns 
returns 
returns 
returns 



11111111B 

00000000B 

0FFH 

00H 



5.4 Expression Evaluation 

Operators in PL/M have an implied precedence, which is used to 
determine the manner in which operators and operands are grouped 
together. A+B*C causes A to be added to the product of B and C. In 
this case B is said to be 'bound' to the operator * rather than the 
operator + , as a result of which the multiplication will be 
performed first. In general, operands are bound to the adjacent 



Y 
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• * 

operator of highest precedence, Or to the left one in the case of a 

tie. Technically speaking, PL/M does not guarantee the order of 
evaluation of operands and operations within an expression, but 

merely defines the association (binding) of operators and operands. 

Valid PL/M operators are listed below from highest to lowest 

precedence. Operators listed on the same line are of. equal 

precedence. - 

* / MOD 

+ - PLUS MINUS 

<<=<> = >=> . \ 

NOT 

AND 

OR XOR 

Parentheses should be used to override the assumed precedence 
in the usual way. Thus the expression (A + B) * C will cause the 
sum of A and B to be multiplied by C. For example, 

A + B + C + D is equivalent to ( (A + B) + C) + D 

A + B * C is equivalent to A + (B * C) 

A + B - C * D is equivalent to (A + B) - (C * D) 

■ 

m 

5,5 Assignment Statements 

Results of computations are stored as values of variables. At 
any given moment, a variable has only one value ~ but this value 
may change with program execution. The PL/M ASSIGNMENT STATEMENT 
re-specifies the value of a variable. Its form is 

variable = expression ; 

The expression to the right of the equal sign is evaluated, and the 
resulting value is assigned to the variable named on the left. The 
old value of the variable is lost. - 

For example, following execution of the statement 

A - 3; 

m 

the variable A will have a new current value of 3. 

The declared precision (BYTE or ADDRESS) of the assigned 
variable affects the store operation: if the receiving variable is a 
BYTE variable, and the expression is a double-byte (ADDRESS) result, 
the high-order byte is omitted in the store. Similarly, if the 
expression yields a single-byte result, and the receiving variable 
is declared type ADDRESS, the high-order byte is filled with zeros. 

* It is often convenient to assign the same expression to several 
variables. This is accomplished in PL/M by listing all the 
variables to the left of the equals sign/ separated by commas. The 
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variables A, B, and C could all be set to the value of the 
expression X + Y with the single assignment statement 



A, B, C = X + Y; 

A special form of the assignment is used 
expressions. The form of this 'embedded assignment 1 



within PL/M 



(variable := expression). 

and may appear anywhere an expression is allowed. The expression to 
the right of the : = assignment symbol is evaluated and then stored 
into the variable on the left. The value of the embedded assignment 
is the same as that of its right half. For example, the expression 

A + (B := C+D) - (E := F/G) 

results in exactly the 'same value as 



A + (C+D) 



(F/G) 



The only difference is the side-effect of storing . the ^ er "^diate 
results C+D and F/G into B and E, respectively. These interm ^?;^ 
results can then be used at a later point in the program without 
calculating them again. ' V, 
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- 
6. DO GROUPS * 

Statements may be grouped together within the bracketing words 
DO and END, to form a do-group. (DO and END are reserved words.) 
The simplest do-group is of the form 

DO; 

statement-1; 
statement-2; 

■• • • 

statement-!*; 
END; 

A group of statements so bracketed may be regarded as a single PL/M 
statement, and may appear anywhere in a program that'a single 
statement may. The flow of program control is explicitly controlled 
by other forms of the do-group; these are shown below; 

6.1 The DO-WHILE Group 

The DO-WHILE is a do-group of the form 

DO WHILE expression; 

statement-1; 

stafcement-2; 

• • • 

statement-n; 
END; 

The effect of this statement is: first the expression following the 
reserved word WHILE is evaluated. If the result is a auantity'whose 
rightmost bit is 1, then the sequence of statements up to the END is 
executed. when the END is reached, the expression is evaluated 
again, and again the sequence of statements is executed only if the 
value of the expression has a rightmost bit of 1. The group is 
executed over and over until the expression results in a value whose 
rightmost bit is 0, at which time execution of the statement group 
is skipped, and program control passes out of the group. 

Consider the following example: . 

A - lj 

DO WHILE A <= 3; 

A = A+l; 
END; 

The statement A = A+l will be executed exactly 3 times. The value 
of A when program control exits the group will be 4. 

It is worth commenting here on the relationship between the 
logical operators, and the WHILE and IF statements. Recall that the 
relational operators return a BYTE value of all ones, or all zeros. 
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It may be helpful to consider any BYTE whose least significant 
(rightmost) bit is l f as representing a TRUE condition, and any 
whose least significant bit is 0, as representing a FALSE condition. 
With this interpretation, we may consider (1 < 2) as returning a 
value of TRUE. We may also consider that the do-while statement 
merely executes the statements of its group as long as the. 
while-expression is TRUE. Note that the logical operators AND, OR, 
and NOT operate bitwise on all the bits of their operands, and in. 
particular perform the standard actions of boolean algebra on the 
least significant bit, provided a 1 stands for TRUE and a for 
FALSE. For example, with the above definitions, 

a 

NOT (TRUE) is FALSE 
NOT (FALSE) is TRUE 

Finally, observe that these conventions cause a complicated 
expression to take on its most obvious meaning. For"~~ex ample: 

DO WHILE (A < 10) AND (A > 4) ; ~~~ 

• * • 

END; 

6.2 The Iterative Do-Group • 

An iterative do-croup executes a group of statements a fixed 
number of times. The" simplest form of the iterative do-group is 

DO var = expr-1 TO expr-2; 

statement-1; 

statement-2; 

• • • 

statement-n; 
END; 

where 'var' is a variable-name, and 'expr-1* and 'expr-2' are both 
PL/M expressions. The effect of this statement is first to store 
the value of expr-1 into the variable var. Second, the value of the 
variable var is tested, and if if is less than or equal to expr-2, 
the grouped statements are executed. When the END is reached, the 
variable is incremented by 1, and the test is repeated. The group 
is repeatedly executed until the value of the variable is greater 
than expr-2, when the test fails, execution of the group is skipped, 
and control immediately passes out. of the range of the do-group. An 
example is 

• ■ * 

DO I = 1 TO 10; 
A = A+I; 
■ END; 

This iterative do-group has exactly the same effect as the following 
DO-WHILE: 




7^ 
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* • 

■ 

1=1; .v.: -.-■-. • 

DO WHILE I <= 10 j 

A = A+I; 

I = 1+1; 
END; 

The more general form of the iterative do-group allows a 
stepping value other than 1. This more general form is 

DO var = expr-1 TO expr-2 BY expr-3; 

statement-1; • 

statement-2; 

• • • 

statement-n; 
END; 

In this case, the variable 'var' following the DO is steeped by the 
value of expr-3, instead of 1, each time the END is reached. An 
example of this form follows: 

/* COMPUTE THE PRODUCT OF THE 
FIRST N ODD INTEGERS */ 

PROD - 1; 

DO I = 1 TO (2*N-1) BY 2; 



I ^ PROD = PROD*I; 

END; 



6.3 The DO-CASE Statement 

The final form of the do-group is the DO-CASE statement. Its 
form is 

DO CASE expression; 
statement-1; 
statement-2; . . ' 

■ 

• • • 

statement-n; 
END; 

The effect of this statement is first the evaluation of the 
expression following the CASE. The result of this is a value K 
which must lie between and n-1. K is used to select one of the n 
statements of the do-case, which is then executed. The first case 
(statement-1) corresponds to K=0, the second case (statement-2). 
corresponds to K=l, and so forth. After only one statement from the 
group has been selected and then executed only once, control passes 
ceyond the END of the do-case group. If the run-time value of K is 
greater than the number of cases, then the effect of the CASE 
statement is undefined. 



i-V \J 
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An example of the DO-CASE is 

DO CASE SCORE; 

CONVERSIONS = CONVERSIONS+1; 
SAFETIES = SAFETIES+1; 
. ■, FIELDGOALS = FIELDGOALS+1 ; •. -..-.'. 

; '•■.-.'' 

TOUCHDOWNS = TOUCHDOWNS+1 ; . . 
END; 

When execution of this CASE statement begins, the variable 
SCORE must be in the range - 7. If SCORE is 0, 4, or 5 then a 
null statement (consisting of only a semicolon, and having no 
effect) is executed; otherwise the appropriate variable is 
incremented. 

A more complex example of the DO-CASE is 

DO CASE X-5; 



Q* 



X = X+5; 


/* CASE 





*/ 


DO; 

X = X+10; 
Y = X-3; 

END; 


/* CASE 

* 


1 


*/ 


DO I = 3 TO 10; 

A = A+I; 
END; , 


/* CASE 


2 


*/ 



END? /* END OF CASES */ 

This example illustrates the use of DO-END blocks to group several 
statements as a single (although compound) PL/M statement. 






f "**N. 



PL/M PROGRAMMING 
IF-Statement 



7. THE IF-STATEMENT 



PAGE 21 



It 



The IF-statement provides alternative execution of 
takes the form 



statements. 



IF .expression THEN 
ELSE statement-2? 



statement-1; 



and has 

reserved 

(r ightmo 

has a 

executio 

statemen 

statemen 

executed 



the following effect: first the expression following the 
word IF is evaluated. _ If the result has a low-order 
st) bit of l p then statement-1 is executed; if the result 
rightmost bit of then statement-2 is executed. Following 
n of the chosen alternative, control passes to the next 
t following the if-construct. Thus of the two subordinate 
ts (statement-1 and statement-2) one and only one is 



The IF-statement tests the rightmost bit of an expression in 
the same way as the DO-WHILE statement (see section 6.1). The most 
intuitive interpretation associates TRUE with a rightmost bit of 1, 
and FALSE with a rightmost bit of 0. 

Consider the following program fragment: 



IF A>B THEN 
ELSE RESULT= 



RESULT=A; 

B; 



Here RESULT is assigned the value of A or the value of B, whichever 
is greater. As program control falls through this fragment, there 
will be exactly one assignment statement executed. RESULT always 
gets assigned some value; but only one assignment to RESULT will be 
executed. 

Let us return to the most general form of the IF-statement: 



IF expression THEN 
ELSE statement-2; 



statement— 1; 



In 



be 



the event that statement-2 is not needed, the else-clause may 
omitted entirely. Such an IF-statement: takes the form 

IF expression THEN statement-1; 

Here the subordinate statement is executed only if the value of the 
if-cbndition has a rightmost bit of 1; otherwise nothing happens, 
and control falls right through the if-construct. 

For example, the following sequence of PL/M statements will 
assign to INDEX either the number 5, or the value of Y, whichever 
the larger. The value of X will change during execution of the 
IF-statement only if Y is greater than 5. The final value of X is 
always copied to INDEX in any case* 
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X.- 5; 

IF Y > X THEN X = Y; " ' ' 

INDEX = X; 

The power of the IF construct in enhanced by compound 
statements. Since a do-group is itself syntactically equivalent to 
a single statement, each of the two subordinate statements in an 
IF-construct may be a do-group. For example: 

IF A=B THEN * 

DO; 



if 



END; 
ELSE • 
DO; 

• • • 

END; 
These do-groups can con.tain further nested if-statements, variable 
and procedure declarations, and so on. 

There is. only one restriction on subordinate statements of 
if-statements: - statement-1 (that is, the subordinate statement just 
following the if-clause) may not itself be an if-statement , unless 
no ELSE is attached to either of these IF's. In other words, the 
construction 

. IF condition-1 THEN 

IF condition-2 THEN statement-3; 
ELSE statement-2; 

is ambiguous and illegal (to which IF does the ELSE belong?), and 
must be replaced by one of the two following constructions, 
depending on the actual intention: 

(1) IF condition-1 THEN 

DO; 

IF condition-2 THEN "sta'tement-3; 
END; 
ELSE statement-2; 

(2) if condition-1 THEN 

DO; 

IF condition-2 THEN statement-3; 

ELSE statement-2; 

END; 



v.y 
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8. ARRAYS 

8.1 Array Declarations 

It is frequently convenient to let one PL/M identifier 
represent more than one BYTE or ADDRESS value. When this is 
desired, the identifier must be suitably declared in a DECLARE 
statement. For example, 

DECLARE X (100) BYTE; 

causes the identifier X to be associated with 100 data elements, 
each of type BYTE. Furthermore, . 

DECLARE (A, B, C) (100) ADDRESS; 

causes the 3 identifiers A, B, and C each to be associated with 100 
data elements of type ADDRESS, so that 300 elements of type ADDRESS— 
have been declared in all. Variables that have been declared in 
this manner to name more than a single data element are called 
arrays, vectors, or subscripted variables. 

(In the special case that an array is declared to have a length 
of zero, no space will be allocated for it in memory. As a result, 
the variable will be a ghost, which refers to memory not 
specifically reserved for it.) 

« 

8.2 Subscripted Variables 

It is sometimes necessary to refer to each element of an array 
by name. For example, 

DECLARE X(100) BYTE; 

actually declares 100 data elements of type BYTE, with names X(0), 
X(l), X(2) f and so on up to X(99) . If we wish to add the third data 
element to the fourth, and store the result in the fifth, we can 
write the PL/M assignment statement 

X(4) = X(2) + X(3); 

The index in parentheses, which selects the specific data element of 
the array, is called an array index, or subscript. 

Much of the power of a subscripted variable lies in' the fact 
that its subscript need not be a numeric constant, but can be 
another variable, or in fact any valid PL/M expression. Thus the 
following program will sum the el ements^of__ thenar ray NUMBERS: 
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DECLARE SUM BYTE; 

DECLARE NUMBERS (10) BYTE; 

DECLARE I BYTE; 

SUM = 0; • 

DO I = TO 9? 

SUM = SUM + NUMBERS (I); 
END; 

EOF 



Subscripted variables are permitted anywhere PL/M permits, a 
simple variable, with the one exception that it is not legal to use 
one as the control variable of an iterative do-group. 



r 
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9. DECLARATION STATEMENTS 



9.1 Objects and Attributes 

The purpose of a declaration is to introduce some computational 
entity (e.g. a procedure, label',- or data element), give it a name, 
and describe some of its attributes. Leaving aside the declaration 
of procedures, which will be discussed in section 11, declarations 
are done by means of the declaration statement. The simplest form 
of a declaration statement is 



of variables) 
Let us look at 



DECLARE object-name attribute-1 attribute-2 

where the attributes are things like (in the case 
type, size, addressing method, and initial value. 
the declaration of a typical array: 

DECLARE FWD (100) BYTE; 

Here is a name (FWD), a size attribute (100), and a type attribute 
(BYTE). Certain syntactic rules govern the ordering of attributes; 
in the example above, the size attribute must precede the type 
attribute. (All such rules are explicitly gathered in one place at 
appendix A.) \ - *.- 



9.2 The INITIAL Attribute 

The values of variables may be initialized in their declaration 
statements using the INITIAL attribute. This attribute takes the 
form 



INITIAL (constant-list) 

where the 'constant-list' is a sequence of constants, 
commas. This attribute mast immediately follow the 
(BYTE or ADDRESS) in the declaration statement. 



' separated by 
type attribute 



The purpose of the INITIAL attribute is to pre-set the values 
of the variables named. The variable or array is allocated storage 
as if the INITIAL attribute were not present in the declaration. 
Then the values given in the INITIAL attribute are placed in memory 
at program load-time , before the program starts execution; 

The user should exercise caution in use of the INITIAL 
attribute. He should be aware, for example, that neither procedure 
entry nor program restart will cause any variable initialization — 
a complete program re-load is required. In fact, use of the INITIAL 
attribute is hardly ever recommended; for ROM-based systems at 
least, the DATA declaration will be far more useful. 
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The following are valid declarations -using the INITIAL 
attribute: •■■■■.■' 

DECLARE X BYTE INITIAL (10); 

DECLARE Y(10) BYTE INITIAL (1,2,3,4,5,6,7,8,9,10); 

DECLARE Z(100) BYTE INITIAL ( 'SHORT ' , 'STRING', 0FH) ; 

DECLARE U(l00) ADDRESS INITIAL (3, 4, 5350); 

DECLARE (Q, R, S) BYTE INITIAL (0, 1, 2); 

The number of bytes required to hold the list of constants need 
not correspond to the length declared for the variable. The 
constants are placed in memory without truncation, starting at the 
first byte allocated by the DECLARE statement-. It is illegal, 
however, to specify INITIAL attributes which overlay each other. 

9.3 The DATA Declaration • ^ . 

Suppose you want to declare an array and give it initial" 
values, and you want those values never to change with program 
execution. If your system provides different memories for program 
code storage and data storage, the answer might be to store this 
particular array with the read-only program code rather than with 
the read-write variables. pl/M gives you this kind of control over 
storage allocation with the" DATA declaration. The form is 

DECLARE identifier DATA (constant-list); 

As an example of this construction, consider 

DECLARE MESSAGE DATA ('8080 PL/M'); 

The effect of a DATA declaration is similar to that of an array 
declaration with an INITIAL attribute, but there are differences in 
form. No data-type specification appears in the declaration; type 
BYTE is forced. No explicit array size appears in the declaration; 
the size is implicitly specified by the length of the constant-list. 
DATA identifiers are used just like subscripted BYTE array 
identifiers, with one exception: they should never appear on the 
left-hand side of an assignment operator. 

9.4 Declaration Elements 

A separate declaration statement is not required for each and 
every declaration. Instead of writinq the two declaration 
statements • " 



DECLARE CHR BYTE INITIAL ('A'); 
DECLARE FAB ADDRESS; 



we may write both declarations' in a single declaration statement, 
like thisi 
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DECLARE CHR BYTE INITIAL ('A'), FAB ADDRESS; 

This declaration statement contains two "declaration elements* , 

separated by the comma. Every declaration statement contains at 

least one declaration element; if it contains more than one, they 
are separated by commas. 

A declaration element is a textual unit defining one name, or 
one list of names, as in 

DECLARE HARE BYTE, (HOUND, "HORN) ADDRESS; ■ ■ 

The declaration elements appearing in a single statement are 
completely independent of each other; it is as if they had been 
declared in different statements. The only question is whether the 
reserved word DECLARE shall be repeated. This is a question of 
style, not substance. 



• W A t» 



£L/M PROGRAMMING " PAGE 28 

Sort Program 

i 10. A SORTING PROGRAM' * '^ 

now we construct an example program using expressions, 

do-groups, and subscripted variables. Suppose a vector A contains a 

set of numbers in an arbitrary order, and we wish to sort them into 
ascending, order. 

/* INITIAL ORDERING OF 'A' IS ARBITRARY */ 

DECLARE A(10) ADDRESS INITIAL 

(33, 10, 2000, 400, 410, 3, 3, 33, 500, 1999); 

- , 

/* BUBBLE SORT */ 

. ./* SWITCHED = (BOOLEAN) HAVE WE DONE ANY -- 

SWITCHING YET THIS SCAN? */ 
DECLARE (I, SWITCHED) BYTE, TEMP ADDRESS; — 

SWITCHED =1; /* SWITCHED=TRUE MEANS NOT DONE YET */ 
DO WHILE SWITCHED; 

SWITCHED =0; /* BEGIN NEXT SCAN OF A */ 

DO I = TO 8; 

IF A(I) > A(I + 1) THEN t *~\ 

DO; /* FOUND A PAIR OUT OF ORDER */ \J 

SWITCHED =1; /* SET SWITCHED = TRUE ■*/ 
TEMP = A (I); /* SWITCH THEM INTO ORDER */ 
A(I) = A(I+1); 
A(I+1) = TEMP; 
END; 

END; 

/* HAVE NOW COMPLETED A SCAN */ 

END /*WHILE*/; 

/* HAVE NOW COMPLETED A SCAN WITH NO SWITCHING */ 

EOF 

This program scans the vector A, comparing each adjacent pair 
of elements. When it finds a pair out of order, it swaps them. It 
does this repeatedly, until it completes an entire scan of A without 
having swapped any pair. Then it Is done. 

The variable SWITCHED keeps track of whether we have done a 
swap yet, this time through the array. So we zero it each time we 
start a new scan, and set it each time we do a swap. 

Study this program until you understand it. It is the basis of .^ 
later examples. [*j 
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I 11. PROCEDURES 

.,. A ''Procedure' is a section of pl/M code which is declared 
without being executed, and then 'called' from other "parts' of the 
program. The call is in fact a remote execution of the procedure 
out of normal sequence: program control is transferred' from the 
point of call to the procedure code, the procedure is executed, and 
when the procedure exits, program control is passed back to the 
point of the call. 

The use of procedures forms the basis of modular ■■ programming, 
fa S 1 i lt3teS makin 9 and using program libraries, eases programming 
and documentation, and reduces the amount of object code generated 
by. a program. The following 2 sections tell how to define (declare) 
procedures, and how to invoke (call) procedures. 



11.1 Procedure Declarations 

A procedure must be defined before it is used. That is, a 
procedure declaration' for a procedure must occur earlier in the 
program text than any reference to that procedure. A procedure 
declaration consists of 4 parts: the procedure name, the 
specification of any formal parameters, the tvpe of the returned 
value (if any), and the procedure body (the code itself). These 
elements take the following form: 

name: PROCEDURE (argument-list) type; 
statement-1; 

statement.-2; 

• • • i 

statement-n; 
END name; 

The name is a PL/M identifier, 
procedure. From this point 
can be invoked by simply mentioning 



which is hereby associated with this 
in the program forward,' the procedure 



its name. 



The argument-list takes the form 



(arg-1, arg-2, 



• • / 



arg-n) 



where arg-1 through arg-n are PL/M identifiers. Such identifiers 
are called formal parameters'; they hold values passed to the 
procedure from the point of its invocation. (PL/M procedures are 
thus of the "call by value" variety.) Each of these formal 
parameters must appear in a declaration statement within the 
procedure body, so its type and size are defined. The argument-list 
may be omitted altogether if no parameters are passed to . the 
procedure. 



np „ The fc yP e of th e procedure is either BYTE or ADDRESS, if the 
procedure returns a value to the point of call, if no value is 
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returned, the type is omitted from the procedure declaration. The 
procedure type defines the precision of the value returned so that 
proper type conversion takes place when the procedure is invoked as 
part of an expression. . 

The execution of a procedure is terminated by execution of a 
RETURN statement within the procedure body. The RETURN statement 
takes one of the two forms 

v 

RETURN; - • 

RETURN expression; - . • 

The first form* is used if no value is returned by the procedure (and 
hence no procedure type is declared) . The second form is used if 
the procedure type is BYTE or ADDRESS, in which case the value of 
the expression in "the RETURN statement is brought back to the 
calling point. 

The statements within the procedure body may be any valid PL/M 
statements, including nested procedure declarations and invocations. 
Here are some sample procedure declarations: 

AVG: PROCEDURE (X, Y) ADDRESS; \ 

DECLARE (X, _Y) ADDRESS; * *\ 

RETURN (X + Y)/2; * '^-- 

END AVG; 

- 

AOUT: PROCEDURE (ITEM); 

DECLARE ITEM ADDRESS; 

IF ITEM >= 0FFH THEN OUTPUT (3) = 0FFH; 

ELSE OUTPUT (3) = ITEM; 

RETURN; 
END AOUT; 

DECLARE GLOEAL$SUM ADDRESS; 
SUMSQUARE: PROCEDURE (ARG) ; 

GLOBAL$SUM = GLOBAL$SUM + ARG*ARG; 
END; 

You may have noticed that there is no RETURN statement in the last 
example. This is a legal construction; there is an implied RETURN 
at the END of any procedure body. Of course, if the procedure 
returns a value, there must be an explicit RETURN to specify it, 

A final note: procedures are not allowed to be recursive. This 
means that a procedure may not call itself, and further that '*%. 
Procedures may not call each other circularly. ^^/ 
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|11.2 Procedure Calls 

Procedures can be invoked (i.e. executed, or activated) only 
following their declaration in the program text. There are two 
forms of procedure call, depending on whether the procedure returns 
a value. If a procedure does not return a value, then the 
procedure-type will be absent from its declaration, and the form of 
its call is * 

CALL procedure-name (argument-list) ; 

which is a self-contained PL/M statement. If a procedure returns a 
value, then its declaration contains a procedure-type, and the form 
of its call is 

procedure-name (argument-list) -— 

which is an operand or term to be used in an expression, just as a- 

variable-name would be used. 
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Given the procedure declarations in secti 
and SUMSQUARE, the following are valid procedu 



section 11.1 for AVG, AOUT, 



re calls: 



X = AVG (X, Y) t 
CALL AOUT (X) ? 
CALL SUMSQUARE (4) ; 
CALL SUMSQUARE (Y + 3) ; 
CALL AOUT (1 + AVG (X, 4)); 



DO WHILE AVG(X, 
X = X + XDEL; 
Y = Y + YDEL; 

END? * 



Y) < MAX; 



Whenever there is a disagreement in type between an actual 
parameter and a formal parameter, automatic type-conversion takes 
place at the point of call. That is, an actual parameter value of 



M 
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type BYTE will be extended with high-order zeros when it xs assxgned 

to a formal parameter of type ADDRESS, and an actual parameter value 
of type ADDRESS will have its high-order 8 bits truncated when it is 
assigned to a formal parameter of type BYTE. The same kind of 
automatic type-conversion happens in two other cases or type 
disagreement:. (1) when there is a disagreement betwe f\ h ^ oi ^ of 
returned by a BYTE or ADDRESS procedure, and its use at the point or 
call; (2) when there is a disagreement between the value of a RETURN 
expression, and the type of the procedure. 



11.3 Example 



As an example of procedure declaration and call, 
consider the sorting program given earlier in section 10. 
take out the segment of the program which actually does tne 
and declare it as a procedure. We will give this procedure 
formal parameter: the length of the array to be so rted. Tn^_ 
procedure will return a value: the number of switches required to 
sort the array* 



let us 
We will 

sorting , 
a single 
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/* INITIAL ORDER OF A IS ARBITRARY */ ' 

DECLARE A(10) ADDRESS INITIAL 

(33, 10, 2000, 400, 410, 3, 3, 33, 500, 1999); 

/* BUBBLE-SORT DECLARATION */ 
SORT: PROCEDURE (N) ADDRESS; - 

* • 

/* N = LENGTH OF A 

COUNT = NR. OF SWITCHES PERFORMED TO-DATE ■ 
SWITCHED = (BOOLEAN) HAVE WE DONE ANY SWITCHING 
YET ON THIS SCAN? */ 
DECLARE (N, I, SWITCHED) BYTE, 
(TEMP, COUNT) ADDRESS; 

SWITCHED =1; /* SWITCHED=TRUE MEANS NOT DONE YET */ 

COUNT =0; 

DO WHILE SWITCHED; 

SWITCHED =0; /* BEGIN NEXT SCAN OF A */ 
DO I = TO N-2; 

IF A(I) > A(I+1) THEN 

DO; A* .FOUND A PAIR OUT OF ORDER */* 

COUNT = COUNT + 1; 

SWITCHED =1; /* SET SWITCHED = TRUE */ 

TEMP = A(I); /* SWITCH THEM INTO ORDER */ 

A(I) = A(I+1); 

A(I+1) - TEMP; 

END; 

END; 

/* HAVE NOW COMPLETED A SCAN */ 
« 

END /*WHILE*/; 

/.* HAVE NOW COMPLETED A SCAN WITH NO SWITCHING */ 

RETURN COUNT; 

END SORT; 

/* BUBBLE-SORT INVOCATION */ 

DECLARE NSWITCH ADDRESS; 

NSWITCH = SORT (10); - • 

EOF 

Compare this procedure with the program of section 10, which 
was a one-shot program. If we wanted to write a program in which 
the array got mixed up, sorted, mixed up, and sorted cyclicly, the 
program of section 10 would be no help. It would sort the array 
once and quit. But here, declared as a procedure, we can invoke it 
as many times as we want the array sorted. 
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12. POINTERS AND INDIRECT REFERENCES 

Sometimes a direct reference to a PL/M data element is either 
impossible or inconvenient. This happens, for example, when the 
memory address of a data element must remain unknown until it is 
computed . at run-time. In such cases it may be necessary to write 
PL/M code to manipulate the addresses of data rather than- the data 
themselves, considering that the. addresses "point to" the data. 
Such pointers have been called "indirect addresses", "references" , 
and "pointer's". In PL/M, the double-byte data type is called 
ADDRESS, to suggest this use. A PL/M programmer handles pointer 
computations using the language facilities described in this 
section. 

12.1 Based Variables 

A 'based variable' is a variable which is pointed to by another 
variable, called its 'base'/ A based variable is not allocated 
storage by the compiler; its value is calculated at run-time by an 
indirect access through its base. A based variable is declared by 
first declaring its base, which must be of type ADDRESS, and then 
declaring the based variable itself: 

fe)| DECLARE ITEM$POINTER ADDRESS; 

DECLARE ITEM BASED ITEM$POINTER BYTE; V_. 

From this point in your program forward, whenever you write 'ITEM* 
you are really saying 'the BYTE value pointed to by the current 
value of ITEM$POINT£R' . This means that the sequence 

ITEM$P0INTER = 34AH; 
ITEM = 77H; 

will load the BYTE value 77 (hex) into the memory location 34A 
(hex). 

A variable is made BASED by the occurence of a base-attribute 
in its declaration. A base-attribute takes the form 

BASED identifier 

where the identifier names the base, or pointer variable. Unlike 
other declaration attributes, this base-attribute must immediately 
follow the name of the based variable in its declaration, as in the 
following examples: 

DECLARE X BASED A BYTE; 

DECLARE (Z BASED ZA, Y BASED YA) ADDRESS; 

DECLARE (0 BASED CA) (100) BYTE; .* >£ 

u 

ft* 

In the first example, a byte variable called X is declared. 

The declaration implies that X will be found at the location given 
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j by the run-time values of the ADDRESS variable A 
elsewhere) . 



(declared 



The second example declares 2 based variables, both of type 

ADDRESS. _ The third example defines an array called Q based at QA. 
The compiler will not allocate any storage to at compile time; the 
size attribute (100) merely provides values for the built-in 
functions LENGTH and LAST, and documents the intended use of Q. 

Based variables may be subscripted like any other variables. 



12.2 The Dot Operator 

Based variables give us a way of talking about a referent, 
given its pointer; now we need a way of constructing a pointer, 
given the referent. This is the dot operator: the memory address of 
a variable is designated by preceding the variable-name with a dot 
character. Thus,. the expressions 

.A and .B(5) 

yield the address of A, and the address of B(5) , respectively. If A 
-^. is a BYTE array, the value of .A(0)+5 is the same as .A(5); if A is 
-f I an ADDRESS array, the value of .A(0)+10 is the same as .A(5). You 
• * can use the dot operator on a based variable; the result is simply 

the value of the base. 

In general, the dot operator takes the forms 

.variable 

.constant 

. (constant) 

. (constant-list) 

This means the dot operator can take a constant for an argument, as 

well as a variable. In this case memory storage is allocated for 

the constant. itself , and the dot operator returns a pointer to it. 
For example, the construction 

.37 

evaluates to an address which points to a memory location containing 
the number 37. Likewise, 

.'MESSAGE' 

returns a pointer to the first character, m) of the ASCII string 
M-E-s-S-A-G-E. a list of constants separated by commas and enclosed 
£7*- py parentheses may be dotted like this: 

~ . (02H, 'MIXED', 0DH, 0AH, 'CONSTANTS'/ 03H) 
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These last two constructions are useful for passing parameters to 
procedures. A PRINT procedure, for instance, might take 2 formal 
parameters, a pointer to a message and a character count of its 
length. It could then be called this way: ...... 

CALL PRINT (14, .'STACK OVERFLOW'); 



An address reference made with 
anywhere a PL/M expression is valid. 



the dot operator is valid 






12.3 Example: Bubble-Sort 

Let us return to the bubble-sort procedure that has been a part 
of our theme, last seen in section 11.3. There it would sort only 
the array A, which was declared globally. Would it not be more 
useful, if it would sort any array we cared to hand it? Passing ari 
entire array is clearly* awkward; getting it back is even more so, 
since a procedure can return at most one value. So pass the 
procedure a pointer to the array; then the procedure can sort the 
array where it already sits in memory, in place, and no motion of 
data is required in the procedure call and return. 

More abstractly, what we are doing is passing the procedure, a 
pointer to its parameter, rather than the value of its parameter. 
Inside the procedure , the formal parameter corresponding to this 
pointer must be declared type ADDRESS, and then it can be used as a 
base for a based variable. In the case of our bubble-sort example 
this strategy results in a program like this: 
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■ /* BUBBLE-SORT DECLARATION */ 

SORT: PROCEDURE (PTR, N) ADDRESS; 

/* N = LENGTH OF ARRAY TO BE SORTED 
• .." PTR = MEMORY ADDRESS OF ARRAY TO BE SORTED 
COUNT = NR. OF SWITCHES PERFORMED TO-DATE 
SWITCHED = (BOOLEAN) HAVE WE DONE AMY SWITCHING 
YET ON THIS SCAN? */ 
DECLARE PTR ADDRESS, A BASED PTR ADDRESS; 
DECLARE (N, I, SWITCHED) BYTE, . 
(TEMP, COUNT) ADDRESS; 

SWITCHED =1; /* SWITCHED=TRUE MEANS NOT DONE YET */ 

COUNT = ; • ■ . 

DO WHILE SWITCHED; -*- 

SWITCHED =0; /* BEGIN NEXT SCAN OF ARRAY */ 
DO I = TO N-2; 

IF A(I) > A(I+1) THEN 

DO; /* FOUND A PAIR OUT OF ORDER */. 

COUNT = COUNT + 1; 

SWITCHED = 1; /* SET SWITCHED = TRUE */ 

TEMP = A(I); /* SWITCH THEM INTO ORDER */ 

A'(I) = A(I+1); 

A(I+1) = TEMP; 

END; 
END; . . 

/* HAVE NOW COMPLETED A SCAN */ 

END /*WHILE*/; 

/* HAVE NOW COMPLETED A SCAN WITH NO SWITCHING */ 

RETURN COUNT; 

END SORT; 

/* BUBBLE-SORT INVOCATION */ 

DECLARE B(10) ADDRESS INITIAL 

(33, 10, 2000, 400, 410, 3, 3, 33, 500, 1999); 
DECLARE C(5) ADDRESS INITIAL 

('A', 32, 0FFFFH, 220, 'EW'); •• . 

DECLARE (Nl, N2) ADDRESS; .. - •. 

Nl = SORT {.B, LENGTH(B)); 
N2 = SORT (.C, LENGTH(C)); 

EOF 

Conceptually, the SORT procedure has a single argument: the 
array to be sorted. We have implemented this idea by giving the 
procedure 2 formal parameters: a pointer to tell where to. find the 
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array, and a count to tell its size. Compare this formulation with 
the bubble-sort procedure of section 11.3, which only sorts one 
array, the one it already knows about, array A. Use of the old 
procedure to sort a different array B means copying B to A, calling 
the SORT procedure, then copying A back to B again. Our new SORT 
procedure can sort any array of any length anywhere in memory: we 
just tell where and how big. 



12.4 Example: String Comparison 

This is an example of character-string handling. We declare a 
procedure EQUAL, which compares. two character strings for equality. 
It is a typed procedure that returns a value TRUE (= 0FFH) . if the 
strings match, FALSE (= 0) if they don't. EQUAL takes two 
parameters: pointers to the two strings to be compared. Each of the 
strings must be terminated by a final byte of 0FFH. 



EQUAL: PROCEDURE (PTRl, PTR2) BYTE; 

DECLARE (PTRl, PTR2) ADDRESS; 

DECLARE (STRING1 BASED PTRl, 
. : STRING2 BASED PTR2) BYTE; 

DECLARE I ADDRESS, (Jl, J2) BYTE; 

Jl, J2, 1=0; 
DO WHILE J1=J2; 

IF J1=0FFH THEN RETURN 0FFH; 

Jl - STRINGl(I) ; 

J2 = STRING2(I) ; ■ ' 

I = 1+1; - ' 

END; 
RETURN 0; 

END EQUAL; 



<v ) 



The idea of this program is to use a do-while loop to keep searching 
down the strings until either a mismatch or the end of a string is 
•encountered. A mismatch will terminate the do-while, and execution 
will fall through to the RETURN statement; but the end of a string 
will provoke a return out of the middle of the do-while. 
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13*1 Label Names 

Statements (or groups) may be labeled for identification and 
reference. A labeled statement takes the form 



LABEL-1: LABEL-2: 



LABEL-N: STATEMENT; 



where the label-i are vaild PL/M identifiers. " Any number of labels 
may precede the PL/M statement. Here are some examples of labeled 
statements: 



\ 



LOOP: X = X+l; 

LI: CLEAN?UP: 1=0; 



A label 
statement of 



may also be a number, 
many assemblers. The 



Such a label 
statement 



is like the 'org 



30: Y = X-5; 



specifies that the object code for this statement is to begin at 

memory location 30. No more than one. numeric label should precede a 
statement; and when symbolic labels are used in conjunction with a 
numeric label on the same statement, the numeric label should appear 
first. Example: 

128: FISH: X * "(X + 2)*3; 

The symbolic form of a label has no effect on the origin of 
code. Its purpose is to be a documentation and debugging aid, arid 
to provide a target for "GO TO statements. 

Labels may be declared, like variables, in declaration 
statements. Such explicit label declaration is not usually 
required; normally one simply uses labels as described in this 
section, and no problems arise. Label declaration is discussed at 
some length in section 15.3. 



13.2 GO TO Statements 

A GO-TO statement stops the normally sequential order of 
program execution by transferring control directly to its 'target*. 
Sequential execution then resumes, beginning with the target 
statement. There are three distinct forms" for the PL/M GO TO 
statement: 

GO TO label-name; 

GO TO number; 

GO TO variable-name; 



PL/M PROGRAMMING 
Labels 



In the first form, the label-name is 
a label in a labeled statement, 
transfer of program control directly 
the second form, the number is 
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an identifier which appears as 
The effect of the GO TO is a 
to the labeled statement.. In 
an absolute memory address, and 
program control is transferred directly to th'at address. In the 
third form, the variable-name is that of a variable containing^ 
pre-computed memory address; control passes directly to this 
absolute memory address. 

These last two forms of the Gp-TO are extremely dangerous, as 
they fail to guarentee the existence of executable code at the GO-TO 
target. In general, one should never use a numeric GO-TO if a 
symbolic GO-TO will work. 



The 
embedded 



reserved 
blank. 



word GO TO can also be written GOTO, without the 



Discussion of label scope, which affects the 
certain GO-TO's, and questions of up-level transfers, 
to section 15 (Block Structure and Scope) . 



legality of 
are postponed 



V 



As a final note on labels: you are 

IF-THEN-ELSE and DO-group constructs instead 
wherever possible. The effect in general will 
and more readable programs. 



encouraged to use 
of labels and GO TO's 
be better object code 



V.' 
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14"* COMPILE-TIME MACRO PROCESSING 

■ 

The LITERALLY declaration defines a macro for expansion at 
compile-time. An identifier is declared to represent a character 
string, which is then substituted for each occurence of. the 
identifier in subsequent text. The form of the declaration is 

DECLARE identifier LITERALLY 'string'; 

where the identifier is any valid PL/M identifier, and the string is 
a sequence of arbitrary characters from the PL/M set, not exceeding 
255 in length, enclosed in apostrophes. The following program 
illustrates the use of this macro facility. 

DECLARE LIT LITERALLY 'LITERALLY', 

DCL LIT 'DECLARE'? 
DCL TRUE LIT '0FFH', FALSE LIT '0'; 
DCL FOREVER LIT 'WHILE TRUE'; 

DCL (X, Y f Z) BYTE; 

X = TRUE; 

• • • 

DO FOREVER; 

Y = Y+l; 

IF Y > 10 THEN HALT; 
END; 

• • • 

EOF 

The first declaration of this program defines abbreviations for 
the reserved words LITERALLY and DECLARE, which are then used 
throughout the program* The second declaration defines the boolean 
values TRUE and FALSE in a" manner consistent with the way PL/M 
handles relational operators {see section 5.3). This often makes a 
program more readable. 

The DO FOREVER statement in the program body first expands to 
DO WHILE TRUE. The macro expansion' of TRUE then yields DO WHILE 
0FFH; and since 0FFH has a rightmost bit of 1 (see section 7.1)/ the 
effect is an endless loop, terminated only by execution of the HALT 
statement within the loop. 

Another use of the LITERALLY declaration is the declaration of 
parameters which may be fixed for one compilation, but may change 
-from one compilation to the next. Consider the program below:'. 
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DECLARE BUFFER$SIZE LITERALLY '300', 
PBASE LITERALLY '40000', 
SUPERVISOR LITERALLY # 40H'; 

DECLARE PRINT$BUFFER (BUFFER$SIZE) ADDRESS; 



PBASE: 

PRINTBUFFER (BUFFERSIZE-10) = 'G'; 



IF ERROR THEN GO TO SUPERVISOR; 



EOF 



A future change to BUFFER$SIZE can be made in one place at the first 
declaration, and the compiler will propagate "it throughout the 
program during compilation. Thus the programmer is saved the— 
tedious and error-prone process of searching his program for the 
occurences of "300" that are buffer-size references, and not some 
other 300 s. <• 




Likewise, 
references to 



the 



starting location of the program (and any 
it from elsewhere) can be chanqed with a modification 
in the PBASE declaration. The expansion of this macro in line 5 of 
our program will create a numeric label; other references (not shown 
ShSpdIftSAS-* 1 expand into absolute GO TO's, like the statement 'GO TO 



r 




r? 
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15. BLOCK STRUCTURE AND SCOPE ' 

PL/M is a "block structured" language. This means that certain 
portions of programs, namely "blocks" , can be written so there is no- 
unwanted interaction between the block and its environment. This 
desirable- situation stems mainly from the concept of "scope": 
entities which are declared within a block are inaccessible^ to 
statements or declarations outside the block; and a block may shield 
itself from the influence of enitities declared outside the block by^ 
suitable declarations inside the block. The use of the same 
identifier for different objects , one inside a block, one outside 
the block, creates no difficulty. 

For example, there are two blocks in the following program: 

DECLARE (A, B) BYTE; -^ 

A = 3; 

DO; • "•"- 

DECLARE C BYTE; 

C = A-17; 
END; 

B = A+200; 
EOF . . 



The DO-END 
The "scope" 
because they 
variable C 
that block, 
anywhere in 
to 



group constitutes a block, as does the entire program. 

of the variables A and B comprises the entire program, 
were declared in the outermost block. The scope of 
is the. DO-END group only, because C was declared within 
This means that the variables A and B may be used 

the program, while use of the variable C is restricted 



the DO-END block. A reference to C located outside the DO-END 
group will be flagged by the compiler as an undefined identifier; 
scope, the variable C simply does not exist. 



outside its 



15.1 How Scope is Defined 

A "block" is any do-group, any procedure body, or the entire 
program. Each block limits the scope of those identifiers declared 
within it; they will be unknown outside the block. Given an 
identifier, its scope is determined by finding the point of its 
declaration, and looking forward and backward in the program text 
("outward" from the declaration), to find the innermost block 
containing the declaration. The exact scope of the identifier then 
begins with its declaration, and ends with the end of the. block. 



The scope of an identifier, so defined, can have "holes" in it. 
If the scope contains an inner block, and the inner block contains a 
declaration that redefines the same identifier, then the 
that inner declaration creates an . area in which 
declaration is temporarily inoperative — masked by 
declaration. 



scope of 
the outer 
the inner 
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Study of the following example will be instructive: 

0001 DECLARE (A, B) ADDRESS .INITIAL (101, 102); 

0002 

0003 P: PROCEDURE (A) ADDRESS; . ■ . ' 

004 DECLARE A BYTE; 

0005 RETURN (A*A + B) ; ' 

0006 END P; 

0007 . 

0008 A = P(2); 
0009 

0010 DO; 

3011 DECLARE P (10) ADDRESS, I BYTE; 

0012 DO I = TO 9; 

0013 P(I) = 500+1; • 
014'" END; 

0-015 A » P(2); 

0016 END; 

0017 

0018 EOF 

i 

First let us consider the scope of the variable I. "I is 

declared on line 11; the innermost block encompassing this 
declaration is the DO-END group comprising lir.es 10 to 16. Thus the 
scope of the variable I begins with its declaration on line 11, and 
ends with the end of the block on line 16. 

The scope of the variable B begins with its declaration on line 
1, and ends with the end of the program on line 18 — that is to 
say, the scope of B is the entire program. The case of the variable 
A is similar, since it is declared simultaneously with B, but there 
is an important difference. The procedure P, whose declaration 
begins on line 3, contains the declaration of another variable A, 
whose scope is the body of the procedure P: line 3 to., line 6. So 
there are two distinct variables named A in this program, declared 
at two different block levels. The outer A's scope fails^ to be 
continuous; it extends from line 1 to line 2, "and from line 7 to 
line 18. It is interrupted by the scope of the inner A, which 
occupies lines 3 to 6. Thus the multiplication on line 5 uses the 
inner A, the formal parameter of the procedure P; and the assignment 
statement on line 8 assigns a new value to the outer A, the A 
declared on line 1. 

The scope of B is not interrupted by any inner declaration in 
the procedure P. That is why the reference to B on line 5, although 
within the procedure, is nontheless a reference to the global B 
declared in line 1. . 

Let us now consider the scope of the procedure P. Its 
declaration begins on line 3, and the innermost block encompassing 
this declaration is the entire program. The scope of the procedure 
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PL/H PROGRAMMING pAGE 45 

Scope 



Ob 



is thus the entire program — with one exception. Notice that the 
identifier Pis declared again at line 11, this time not as a 
procedure, but as a 10-element array of addresses. As in the case 
of the identifier A, this double declaration presents no difficulty 
because _ the declaration on line 11 is contained within an inner 
block, in this case the DO-END group encompassing lines 10 to 16. 
The scope of the array P is thus from line" 11 to line 16. Without 
this inner declaration of the identifier P, the scope of the 
procedure P would be the entire program; with it, the scope of the 
procedure is only from line 3 to line 10, and from line 17 to line 
1 8 • 

The double declaration of.-P — once as a procedure, once as an 
array has a curious consequence. The two statements at lines 8 
and 15, although lexically identical, have different meanings. Line 
15 tails within the scope of the array declaration on line 11, and 
thus sets the variable A equal to the third element of the array P 
(which the iteration Of lines 12 to 14 has left equal to 502). On 
the other hand, line 8 falls outside the scope of the array P, and 
within the scope of the procedure P. Thus the assignment of line 8 
invokes procedure P with an actual parameter of 2; within the 
procedure body the inner variable A becomes equal to 2; the value 
2^2 + B, or 106, is returned as the value of the procedure call; and 
the outer A gets assigned the new value 106. 

15.2 What is Subject to Scope 

Variable names, array names, and data names have scope, ' as 
explained in the preceding section. The rules explained there 
apply, with one anomaly: the innermost block encompassing a 
variable, array, or data declaration must not be a DO-WHILE, a 
DO-CASE, or an iterative DO. Declarations so placed are illegal. 

_ Procedure names have scope, following the rules explained in 
the preceding section. The anomaly just described holds for 
procedure names also: the innermost block encompassing a- procedure 
declaration must not be a DO-WHILE, a DO-CASE, or an iterative DO. 

Macro names defined in LITERALLY declarations also have scope, 
according to the rules of the preceding section. Here aaain, the 
innermost block encompassing a LITERALLY declaration must not be a 
DO-WHILE, a DO-CASE, or an iterative DO. 

Labelsare also identifiers, and as such have scope. But 
uniike^ variables, procedures, and macros, it is not usually reauired 
to explicitly declare label names. The first use of an undeclared 
im^?- • 1S J 1 * :self an implicit declaration., of the label; and this 
implicit declaration governs the scope of the label according to the 
ruJ-es of the .preceding section. But there are times when a 
P ^°?^ a ? mer roust. Override these implicit declarations with his own 
?« tu C1 ! ,? ec: f actions. These issues are discussed more completely 
m the followiijij section. • 




) 



•1* 

PL/M PROGRAMMING 

Scope 



15.3 Scope of Labels 



PAGE 46 



Just as variables and procedures have an explicit scope, The 
symbolic form of a statement label has an implied scope. This scope 
can be made explicit by a label-declaration. The form of the 
label-declaration element conforms to one or the other of 

DECLARE identifier LABEL; 

DECLARE (identifier-1, ... identif ier-n) LABEL; 

Such a declaration says that the label or ' set of labels will be 
defined at the block level of the declaration. This explicit label 
declaration is necessary only if the implied declaration does not 
satisfy the programmer's intention. 

Suppose we have a program containing the following statement: 

LOOP: x » X+l; ' 

This program will be compiled as if we had written 

DECLARE' LOOP LABEL; 
LOOP: X = X+l; 

* 

where the implicit label declaration immediately precedes the 
occurence of the label. Mostly this turns out to be exactlv what 
one would wish for; but here is an example which shows why the 
explicit declaration is sometimes required. 



X = X+l; 

• • • 

DO; 

• • • 

GO TO EXIT; 

• • • 

END; 

• • • 

EXIT: HALT; 
EOF 



/* START OUTER BLOCK */ 
• /* START INNER BLOCK */ 

/* END INNER BLOCK */ 
/*■ END OUTER BLOCK */ 



Our obvious intention is to branch from the inner block to the 
statement labeled EXIT at the end of the program. But according to 
the implicit declaration rule for labels, we could have written 
eguivalently 



'T 
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X = x+1 * /* START OUTER BLOCK */ 

* • • 

D0; /* START INNER BLOCK */ 

• • • 

DECLARE EXIT LABEL; 
GO TO EXIT; 



• • • 



END? /* END INNER BLOCK */ 

• • • 

DECLARE EXIT LABEL; 
EXIT: HALT; 

E0F /* END OUTER BLOCK */ 

At the first use of EXIT, the implicit declaration limits the ! scope 
Zt =;« e « :•!!■£? the d °-9 rou P- So at the second occurence of EXIT, 

Y™«?5 ■<? 3 X ?' 3 - SCOpe ' EXIT is a ^ ain undefined, and a new 
implicit declaration will occur. Now there are two labels due to 
implicit declarations, an inner and an outer. Amusinqly enough, the" 
inner label is undefined (although declared) , and the GO-TO 
statement has nowhere to go to! To accomplish the original purpose, 
we should write . 

DECLARE EXIT LABEL; /* START OUTER BLOCK */ 

•. x . -.x+li . -.;. . 

D0; /* START INNER BLOCK */ 

• • » 

GO TO EXIT; 

• • • 

■ END ; /* END INNER BLOCK */ 

• • • -, 

EXIT: HALT; 

E0F /* END OUTER BLOCK */ 

, . Now everything will work out properly: at the first use of the 
Ihit nci 1 ?- the . GO-TO statement) it has already been declared, and 
5£jiJII^ n tke SCOpe 0f that declaration. The implict 
on. h! Jvt." 6 suppressed, as they are not required; there is but 

restriction? ltS S °° Pe iS n ° W * he entire Program, without 

15.4 Use of Block Structure 

S homf a 2fw! r of . COn i rpl from one block nesting level to another 
lea^Hna ?J tl •- 6 5° ne b i enterin 9 the block at its beginning and 
t SpiSL L t S 6nd/ ° r (for a P roced ^e body) leaving by means of 
a RETURN statement. 

mid^i!°nf e i ample ^ a G0 : T0 statement which contrives to jump into the 
an P nP V^! dUre 5° dy W ^ n leave the run-time pushdown stack in 
an undefined state, and continued execution, of the program will 
produce unpredictable results. A procedure body should be entered 
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only by means of a call on the procedure. 

A GO-TO leaving a procedure body has similar trouble with the 
run-time stack, since it by-passes the orderly RETURN mechanism. 
Because of this, it is" illegal to write a GO-TO inside a procedure 
that transfers control outside the procedure, unless its target is 
at" the outermost block level of the "program. Such unconditional 
up-level transfers are sometimes justified by the convenience of 
global error exits, or by abort-and-restart conditions. 

Need for inter-block GO-TO's is quite rare, and programs may 
often be rewritten to remove them, using alternative PL/M control 
structures. Excessive use of GO-TO's will make programs hard' to 
debug and modify. 

*It is recommended that, within any giveft~ block, all 
declarations be put at the beginning of the block, preceeding 
executable statements. The scope of identifiers so declared ma/— 
then be visualized" as the extent of the entire block. This 
simplification also prevents an important class of programming 
errors: mistaken identification of the "innermost encompassing 
block". 

Programmers find their work greatly facilitated by proper' 
layout of a program on the pages of its program listing. Blocks 
(procedures, do-groups) are frequently set off by blank lines. The 
body of each block is indented by a fixed number of spaces from the 
code in which it occurs; thus the opening and closing lines of the 
block are vertically aligned. When you look at a program listing it 
should be easy to see its block nesting structure "at a glance, 
without reading the code in detail. * 

Block structure in a programming language provides the 
opportunity to define truly independent program modules, letting the 
compiler do the work of keeping them independent. Procedures can be 
"made independent of their environment (except for number and types 
of parameters) . Procedures can be moved from one program to 
another, with no surprises resulting from new declaration" conflicts. 
Complete self-contained modules, together with conventional macro 
definitions, can form a project'or department library — greatly 
reducing program development time. 



rt 
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16* PRE-DECLARED VARIABLES AND BUILT-IN PROCEDURES 

Pre-declared variables and built-in procedures are assumed to 
be declared in an all-encompassing global block invisible to the 
programmer. Such invisible declarations can be overridden by inner 
declarations — which distinguishes these special identifiers from 
reserved words. A list of these pre-declared identifiers is given 
in appendix E. 



i 



16.1 INPUT and OUTPUT 

The form of an input call is 

INPUT (number) 

It is used in expressions exactly as a BYTE procedure call would be, 
and its value is the 8-bit quantity latched in the specified inputs 
port of the CPU. The numeric constant argument must be in the range 
- 255 for the 8080, and in the range 0-7 for the 8008. 

The pseudo-variable OUTPUT alv/ays appears as the left part of 
an assignment statement; elsewhere it is illegal. (In particular, 
it never appears as the destination of an imbedded assignment.). Its 
form is 

OUTPUT (number) = expression; 

where the numeric constant argument must be in the range - 255 for 

the ■ 8080, and in the range 0-23 for the 8008. Its effect is to 

latch the 8-bit value of the expression into the specified output 
port. 

In the 8080 CPU, there are 512 I/O ports: 256 input ports and 
256 ouput ports, each group being numbered through 255. These 
physical (hardware) port designations are identical with the PL/M 
constants that appear as arguments for INPUT and OUTPUT. 

In the 8008 CPU, there are 32 I/O ports, numbered through 31. 
The first 8 of these are reserved for input, the remaining 24 for 
ouput. The correspondence between these physical (hardware) port 
designations, and the PL/M designations, is given by the table 
below: 
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8008 physical 
port number 


1 
2 

• • • 

7 
8 
9 

• • • 

30 
31 



PL/M 



INPUT(0) 
INPUT(l) 
INPUT (2) 

• • • 

INPUT (7) 
OUTPUT (0) 
OUTPUT (1) 

• • • 

OUTPUT (22) 
OUTPUT (23) 
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16.2 LENGTH and LAST 

PL/M has 2 built-in functions based on the 
arrays. These functions take the forms 



declared sizes of~ 



:o 



LENGTH (identifier) 
LAST (identifier) 

where "identifier" is any previously declared variable name, "array 
name/ or data identifier. These forms may appear anywhere an 
expression is allowed in a PL/M program. They evaluate to the 
declared length of the variable, and the index of the final element 
of the variable, respectively. The following program uses the LAST 
function to set all the elements of a vector V to the constant 5: 



DECLARE V(100) BYTE; 

DECLARE I BYTE; 

* 

DO I = TO LAST(V); 

V(I) = 5; 
END; 

■ 

EOF 



For any identifier VAR, LENGTH (VAR) = 1 
condition that LAST is ' defined.. LENGTH 
variables, no matter how declared, but LAST 
variables declared to have length zero. 



+ LAST (VAR) , on the 
is defined for all 
is not defined for 



r 



16.3 The Functions LOW, HIGH, and DOUBLE. . . ■ 

Two built-in type-transfer procedures convert ADDRESS values to 
BYTE values. They both return . BYTE values, and take ADDRESS 
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v .^/} arguments, as follows: • • ■■-. • 

LOW (expression) 
HIGH (expression) 

LOW returns the low-order byte of its argument; HIGH returns the 
high-order byte of its argument. 9 

A third type-conversion procedure, DOUBLE, converts a byte 
• value to an ADDRESS value by padding it on the left with a 
high-order byte of zeros. 

Calls to these three type-conversion procedures are valid 
anywhere an expression is valid. They may never appear as the- 
destination of an assignment statement. 



16.4 Shift and Rotate Functions 

16.4 .1 BYTE Rotation Functions 

Calls' to the two functions ROL and ROR take the forms 

ROL (expr-1, expr-2) • 
ROR (expr-1, expr-2) 

where both expr-1 and expr-2 must evaluate to BYTE quantities; a 
single BYTE value is returned in both cases. ROL rotates expr-1 to 
the left, the bit count of the rotation being given by expr-2. ROR 
returns the corresponding right rotation. By 'rotate' we mean that 
any bits falling off the end in the direction of the rotation, come 
back in the other end. For example, 

ROR(10011101B, 1) returns a value of 11001110B; 
ROL(10011101B, 2) returns a value of 01110110B. 

ROL and ROR have the side-effect of setting CARRY according to the 
last bit rotated off the end and around. In the first example 
above, CARRY will be set; in the second example, CARRY will be 
cleared. 

Important restriction: expr-2 must be non-zero. 

16*4.2 CARRY-Rotation Functions 

Calls to the two functions SCL and SCR take the forms 

SCL (expr-1 , expr-2) 
SCR (expr-1, expr-2) 



~s 
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where expr-2 must evaluate to a BYTE quantity, but expr-1 may be 
either a BYTE value or an ADDRESS value. If it's of type BYTE, then 
the function will return a BYTE value; if it's of type. ADDRESS r then 
the functon will return an ADDRESS value* 

The first parameter (expr-1) is rotated left (SCL) or right 
(SCR) \ according to a count given by the second argument (expr-2) > 
just' as with ROL and ROR. But with SCL and SCR, the rotation 
includes the CARRY bit: the bit rotated off one end of the argument 
is rotated into CARRY; the old value of CARRY is rotated into the 
other end of the argument. In'effect, *SCL and SCR perform 9-bit 
rotations on 8-bit arguments, and 17-bit rotations on 16-bit 
arguments. • ■ 

Suppose that CARRY is clear. Then SCL(10011101B, 1) returns 
the value 00111010B, and sets CARRY as a side-effect. Similarly, if 
CARRY starts out clear, then SCR(10011101B, 2) returns the value 
10100111B, and clears -CARRY as a side-effect. The same principles 
hold for 16-bit arguments. 

Important restriction: expr-2 must be non-zero. 



& 



16.4..3 Logical-Shift Functions . t - 

Calls to the two functions SHL and SHR take the forms 

SHL (expr-1 , expr-2) 
SHR (expr-1, expr-2) , 



I?* 



where expr-2 must evaluate to a BYTE quantity, but expr-1 may be 
either a BYTE value or an ADDRESS value. If it's of type BYTE, then 
the function will return a BYTE value; if it's of type ADDRESS, then 
the function will return an ADDRESS value. 

The first parameter (expr-1) is shifted left (SHL) or right 
(SHR) according to a bit count given by the second argument 
(expr-2). Bits shifted off the left end (SHL) or the right end 
(SHR) are shifted into the CARRY; zeros are shifted in the other 
end. The previous value of CARRY is always lost. For example, SHL 
(10011101B, 1) returns the value 00111010B and sets CARRY as a 
side-effect; SHR (10011101B, 2) returns the value 00100111B, and 
clears CARRY as a side-effeet. 

Important restriction: expr-2 must be non-zero. 

16.5 Interrupt Control Statements 

Two special statements are provided for control of the 8080 
interrupt facility: ENABLE and DISABLE. Their functions and usage 
are explained in some detail in section 18 of this manual, and so 
will not be repeated here. PL/M for the'8008 does not support these 



* 






X 
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■ . ■ 

16.6 Carry r Zero, Sign, Parity 

There are four identifiers used to test the 8008 and 8080 CPU 
condition codes: 

CARRY ZERO SIGN PARITY 

An occurence of one of these identifiers (in an expression) 
generates a test of the corresponding condition flip-flop. If the 
flip-flop is set (= 1), a value of 0FFH is returned; if the 
flip-flop is clear (= 0), a value of is returned. 

16.7 The Decimal Arithmetic Function '*** 

A pre-declared function called DEC facilitates computations in" 
BCD {binary-coded-decimal} numbers. This pre-declared DEC function 
is described in the section of this manual covering decimal 
arithmetic, section 17. PL/M for the 8008 does not support this 
facility. 

•■ « 

16.8 The MEMORY Vector 

Often it is useful to reference the area of free memory that 
follows the space allocated to variables. This facility is provided 
by an implicit declaration 

DECLARE MEMORY (0) BYTE; 
as the last declaration of every program. 

As an example, consider the following program: assuming 10 
memory pages of 256 bytes each, we want to leave all unallocated 
memory set to ones. 

• . DECLARE SIZE LITERALLY '2559.';- 

DECLARE I ADDRESS; 
DO I = .MEMORY TO SIZE; 

MEMORY (I - .MEMORY) =1; 
END; 
EOF 

16.9 The TIME Procedure 

:• The built-in procedure TIME causes a time delay specified by 
I its actual parameter. The form of the call is 
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CALL TIME (expression); . 

where the expression evaluates to a BYTE quantity! The length of 
time measured by the procedure is a multiple of 100' microseconds: if 
the actual parameter evaluates to n, then the delay caused by the 
procedure is 100n usee. For example, the procedure call 

CALL TIME (45) ; 

returns after 4.5 milliseconds. Since the maximum delay offered by 
the procedure is 25.5 milliseconds, longer delays must be obtained 
by repeated calls. The following loop takes one second to execute: 



DO I = 1 TO 40; 

CALL TIME (250) ; 
END; 



The TIME function is based on the 8008 and 8080 CPU cycle 
times, and assumes that in your system the memory cycle time is fast 
enough to permit the CPU to run full speed. If this condition 
It 1 !t'-r„r, l • the C PU goes into a 'hold' state during execution of 

cne TIME function, then delay times become unpredictable. 

4- - 

16.10 STACKPTR* ' '* - ; 

The Intel 8080 (unlike the 8008) has a run-time pushdown stack 
in memory, rather than in the CPU itself. The 8080 references this 
memory stack by means of a st.ackpointer register in the CPU, which 
fi Wa r f«o« ainS , the memor y address of the (current) top item on the 
stack. 8080 PL/M gives the programmer direct access to this 
! 9 !f e [ h l ? eans of th e pseudovariable STACKPTR, which may be used 
m the two following constructions only: 

variable = STACKPTR; 
STACKPTR = expression; 

iI Va «H5 le ' mean ? non -subscripted PL/M variable; 'expression' means 
any pl/M expression.) 

A f L / M Programmer should require access to the stack pointer 
only under extreme and unusual circumstances. Taking control of the 
stack away from the compiler frustrates the compile-tirae checks on 
r,^u- overflow ' invalidates the compiler's assumptions about the 
run-time states of the stack, and results in unreliable programs. 
ti J U S i n 1 ^ seems necessary nontheless, programmers are advised 
sta?«2X iu M PL/M run - time environment, before making use of 
biALKPTR.^ The necessary documentation will be found in the 
appropriate compiler manual. 



* r 
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.Q 17. DECIMAL ARITHMETIC FACILITIES 

arithmft?r> P n{o„,-5- S °P eration ? which greatly simplify decimal 
ill in iSlr P 2 Vldin 9. s ° me straightforward conventions are followed. 
Let all operands (variables and constants) be BYTE values, each 
S?5i? X Ei n 2- h tW ° 4 " bit K «^s. Each field will represent one dectmaJ 
J' 9I J,?L a '"npX n ^ ber in th -e- "nge - 9.; Such a BYTE value will 
De .called a BCD-pair. (The representation of a number as a string 
nLh!r in,a ^ dl 9 1 j:s / where each digit is represented bv a 4-bit binary 
??'! ^h*? 116 ? BINARY-CODED-DECIMAL representation.) In an 8080 
BCD-pai., the least significant (rightmost) 4-bit field represents 

B?r n*?r S L !T/M iC K nt decimal- digifof the pair. We will write a 
5h«<? ,■?? aPL/M . hexadecimal number, because each hexadecimal 
tJ*l n^i conveniently represent a 4-bit BCD digit. Here are some 
valid BCD-pairs: • 

23H 96H, 10H 
and here are some invalid BCD-pairs: 

2FH 0A0H 770 31 

rM,,!! 00 !^"/" added using the + or PLUS operators, and then the 
Thl fnrn. !f ! 'n'" ° a BC ?"P a ^ again by means of the DEC function. 
The form of a call to DEC is one of the following: 

DEC (el + e2) 
DEC (el PLUS e2) 

where el and e2 are BCD-pair values: non-subscripted BYTE variables, 
cmSk P constants, or expressions resulting in BCD-pair values, 
such as properly nested calls to DEC. The effelt of a call on dIc 

the S?n c?,f J V r ^° rinS ' is to return the BCD-pair representing 
low-ordJ \n fL a K d t 2 ' ^ ncl " dil ?g the possible carry from the 
99H Hi « fl ™ high-order digit of the pair. If the sum exceeds 
lh~L a S% 808 J. carry flip-flop is set. some examoles will clarify 

DrSSLf e ^ nitl0nS * ^. the table below ' the calls" to DEC on the left 
produce the .corresponding results on the right: 

£?? JII2 I ?SI 44H ' CARRY=ciear 

DEC 36H + 36H) 72H, CARRY=clear 

DEC 73H + 81H) 54H, CAFRY=set 

DEC DEC(22H+22H) +-33H) 77H, CARPY=clear 

DEC (DEC(22H+22H)+DEC(22H+22H)) 88H, CAPRY=clear 

decin,?? 6 ope 5 ator PLUS can be used in place of the operator + if 
exSmn? ; UIBb S S -,,? lth m ° re than tWO di 9 its ™ust be added. For 

34S mP and ISn th^n **t "l*',™ J" St add the ^^o^et BCD-pair J 
and /an, then the hiah-order Rcn-n» re nn =„,? ^» *.Ii..« 



account of the carry 
In Pl/m, we have 



ana. 46/8, we first add the low-order BCD-pairs 

the high-order BCD-pairs 12H and 46H, taking 

:rom the low-order pair to the high-order pair. 
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DECLARE (UPPER, LOWER) BYTE; 
LOWER = DEC (34H + 78H) ; 
UPPER = DEC (12H PLUS 46H) ; 

* • 

The low-order result 12H is now in LOWER, the high-order 59H in 
UPPER. It was important not to disturb the 8080 carry flip-floD 
between the two calls to DEC, so that the PLUS operator was not 
misled. This can be assured in general by permitting only scalar 
assignments to separate the calls. 



Here is 
two decimal 
in the three 
three BYTE 
21,. Z2, Z3. 



another example: suppose we wish to obtain the sum of 
numbers, each 6 digits in length. One number is stored 
BYTE variables XI, X2, X3; the other is stored in the 
variables Yl, Y2, Y3. We want the result to appear in 
We write this program: 



DECLARE (XI, X2, X3) BYTE, 
(Yl, Y2, Y3) BYTE, 
(Zl, Z2, Z3) BYTE; 
Z3 = DEC (X3 + Y3) ; /* 
Z2 = DEC (X2 PLUS Y2) ? /* 
Zl = DEC (XI PLUS Yl) ; /* 



LOW-ORDER RESULT */. 
MIDDLE-ORDER RESULT */ 
HIGH-ORDER RESULT */ 



Now we generalize to a procedure which sums two numbers,, each 
represented by S" vector of BCD-pairs (x and Y), and leaves the 
result in the vector Z. The digits of each number are assumed to be 
stored such that the least significant BCD-pair is at subscriDt 
position zero. 



DECLARE (I, CY) BYTE, 

(Y. V. 7A Mflt RVT 



(X, Y, Z) (10) BYTE, (U, V, W) BYTE; 

• • • 

CY = 0; 

DO 1= TO LAST(X) ; 

U = X(I); - 

V = Y(I); 

W = DEC (U + CY) ; 

CY = CARRY; 

W = DEC (W + V) ; 

CY = (CY OR CARRY) AND 1; . 

Z(I) = W; 
END; 

No direct facility is provided by 8080 PL/M for decimal 
arithmetic other than addition. Subtraction is easily accomplished 
by complement arithmetic: given a BCD-pair X, the value 

99H - X 

is the nines-complement of x. Subtraction of a number" is 

accomplished by adding its nines-complement. Decimal multiol ication 
and division can be done by repeated addition and subtraction, using 
shift-and-add or shif t-and-subtract algorithms if the application 



V ■*. c# 
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m? warrants. Unpacked decimal (one digit per byte) is always an option 
if BCD-pair operations become too involved. 






? 
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18. INTERRUPT PROCESSING FACILITIES 

8080 PL/M includes language facilities for use with the 8080 
interrupt mechanism to process interrupts generated externally. 
Fundamentally, an interrupt is an external asynchronous call on^ a 
PL/M procedure. When the interrupt is. .accepted , the executing 
process is stopped, the machine state is saved, and a specific 
interrupt-handling procedure is invoked . When the interrupt 
procedure does a return, the previous machine state is restored and 
control returns to the interrupted -process. 

Up to 8 different interrupt procedures can be included in a 
PL/M program,- corresponding to the 8 restart instructions RST 
through RST 7. 



The 8080 
statements 



interrupt mechanism is controlled by the PL/M 



DISABLE; 
ENABLE; 

The DISABLE statement causes the 8080 CPU to enter -a state wherein 
interrupts are masked. The ENABLE statement causes the 8080 to 
leave that state, so that incoming interrupts are processed as they 
occur. The 8080 CPU starts from power-up with interrupts disabled; 
interrupts must be explicitly enabled before any interrupt 
procedures can be invoked. 



parameterless 
attribute in 



and 
its 



An interrupt procedure in 8080 PL/M is a 
typeless procedure, with the INTERRRUPT 
declaration. The form of this attribute is 

INTERRUPT n 

where n is a number in the range to 7, corresponding to one of the 
eight possible interrupts. interrupt procedures must be declared 
only in the outermost block of a program. 

For example , the following interrupt procedure is invoked 
whenever a RST 3 instruction is jammed into the 8080 interrupt port 
with interrupts enabled. 
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DECLARE KEYMAX LITERALLY '72' J . i 

DECLARE KEYBUFF (KEYMAX) BYTE, KEYPTR BYTE; 

DECLARE OVERFLOW LABEL; ■. : ' 

KEYBOARD$ PROCESS: PROCEDURE INTERRUPT 3; 

DECLARE CHAR BYTE; 

KEYPTR = KEYPTR+1; ■ - -* : 

IF KEYPTR > KEYMAX THEN GO TO OVERFLOW; 

IF. (CHAR := INPUT(5)) = '$' THEN RETURN; 

KEYBUFF (KEYPTR) = CHAR; ' • 

END KEYBOARD$ PROCESS; 

KEYPTR = . (KEYBUFF) ; 

ENABLE; 

/* MAIN PROGRAM */ • 

• • • 

OVERFLOW: 

/* KEYBOARD BUFFER OVERFLOW */ 

• • • 

EOF 

• 

In this example, KEYBOARDPROCESS operates on the global 
variables KEYPTR and KEYBUFF each time RST 3 io executed. If KEYPTR 
exceeds KEYMAX then control is transferred to the outer block label 
OVERFLOW and the saved machine state is discarded — control never 
returns to the interrupted process. If KEYPTR does not exceed 
KEYMAX then the value of input port 5 is read and stored into CHAR. 
If the value of CHAR is ASCII dollar sign, then the interrupt 
procedure returns immediately to the interrupted process. Otherwise 
the value of CHAR is placed in the vector KEYBUFF and control 
returns to the interrupted process. 

The 8080 interrupt mechanism is disabled by the occurence of an 
interrupt, and may be explicitly enabled with an ENABLE statement 
inside the interrupt procedure. Interrupts are enabled by a return 
from an interrupt procedure. .Caution should be exercised when 
enabling interrupts inside an interrupt procedure: two activations 
of the same interrupt procedure must never be in process 
simultaneously, since there is only one data area for ^ both 
activations. This exclusion can be accomplished by specifically 
disabling the interrupt source, or by establishing a priority of 
interrupts with external circuitry. The safest method is to leave 
interrupts disabled during all interrupt processing. 

Interrupt procedures . may contain nested non-interrupt 
procedures. On completion of a call, these nested procedures return 
to their point of call inside the interrupt procedure in which they 
are defined; it is only the RETURN'S at the outermost interrupt 
procedure level which cause the machine state of the interrupted 
process to be restored, ' - 
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Similarly, procedures at the 
particular interrupt procedure, c 
interrupt procedure. The programmer 
data areas referenced by such a gl 
to actions of the interrupt procedur 
dangerous to do floating point mul 
en interrupt procedure, because such 
would almost certainly have local v 
during a multiply, and the inte 
multiply code, these local data 
interrupt procedure will complete it 
return from the interrupt will not 
machine state. 



same level, or 
an be invoked f r 

must ensure, howev 
obal* procedure are 
e. For example, 
tiplications or div 

multiply and divid 
ariables. If an in 
rrupt procedure r 

area§ will be co 
s execution correct 

be able to restore 



global to a 
om inside the 
er, that any 
not sensitive 
it would be 
isions inside 
e * procedures 
terrupt comes 
e-enters the 
rrupted. The 
ly, but the 
the original 



O 



Interrupt procedures can be called directly from the outer 
block of the program, or from another procedure, if. desired. The 
programmer must be aware, of course, that interrupts are always 
enabled on exit from an interrupt procedure, even though the 
procedure may have been entered via a call rather than an external 
interrupt. 

Note also that an 8080 in the halt state with interrupts 
disabled cannot be restarted except, by applying the appropriate 
reset to the 8080 chip. This is why ■" the HALT statement in' PL/H 
enables the interrupt mechanism immediately before stopping the CPU. 



*•*. .>*"' 
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THE VOCABULARY 



terminal symbols 



nonterminals 



1 


! 


2 


• 
9 


3 


HALT 


4 


ENABLE 


5 


DISABLE 


6 


IF • 


7 


THEN 


8 


ELSE 


9 


DO 


10 


CASE 


11 


INTERRUPT 


12 


<number> 


13 


PROCEDURE 


14 


<identif ier> 


15 


) 


16 


( 


17 


9 


18 


END 


19 


« 
• 


20 


RETURN 


21. 


CALL 


22 


GO 


23 


TO 


24 


GOTO 


25 


DECLARE 


26 


LITERALLY 


27 


<string> 


28 


DATA 


29 


BYTE 


30 


ADDRESS 


31 


LABEL 


32 


BASED 


33 


INITIAL 


34 


= : 


35 


a s 


36 


OR 


37 


XOR 


38 


AND 


39 


NOT 


40 


< 


41 


> 


42 


+ 


43 


- 


44 


PLUS 


45 


MINUS 


46 


* 


47 


/ 


48 


MOD 



<program> 

<statement list> 

<statement> 

<basic statement> 

<if statement^ 

<assignment> 

<group> 

<procedure definition> 

<return statements 

<ca 11 statement> 

<go to statement> 

<declaration statements 

<label definition> 

<if clauses 

<true part> 

<expressioh> 

<group head> 

<ending> 

<step definition> 

<while clause> 

<case selector> 

<variable> 

<replace> 

<iteration control> 

<to> 

<by> 

<while> 

<procedure heod> 

<procedure nan t ! e> 

<type> 

<parameter list> 

<parameter heads 

<go to> 

declaration elements 

<type declaration> 

<data list> 

<data head> 

<constant> 

< identifier specifications 

<bound head> 

<initial list> 

<variable name> 

<identifier list> 

<based variable> 

<initial head> 

<left part> 

< logical express ion> 

<logical factor> 
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49 


• 


50 


BY 


51 


WHILE 


52 




53 


• 


54 


- 


55 




56 




57 





< logical second a ry> 

<logical primary> 

<arithmetic expression> 

<relation> 

<comp> 

<term> 

<primary> 

<constant head> 

<subscript head> 

<program> is the goal symbol* 
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2 
3 

4 
5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
20 

21 

22 

23 

24 
25 
26 
27 
28 

29 

30 
31 

32 

33 

34 



<program> :;= 
<statement list> ' 

<statement> ?•= 
i 

<basic statements 



<statement list> 

: :- <statement> 

I <statement list> <statement> 

<basic statemen.t> 
<if statement> 



<assignment> j 
<group> j 

<procedure definition> ; 
<return statement> ; 
<call statement> ; 
<go to statement> ; 
declaration statement> ; 
HALT ; 
ENABLE y 
DISABLE ; 



<if statement* 

<if clause> :: 
<true part> :: 
<group> : •= 
<group head> 



I <label definition <basic statement* 

<if clause> <statement> 

<if clause> <true part> <statement> 

<label definition* <if staternent> 



|B IF <expression> THEN 
:= <basic statement> ELSE 
<group head> <ending> 



DO ; . 

DO <step definition> ; 
DO <while clause> ; 
po <case selector> j 
<group head> <statement> 



<step definition 
<iteration control> 



<variable> <replace> <expression> <iteration control> 



t 



<to> Expression* 

<to> <expression> <by> <expression> 



<while clause> :: = <while> Expression* 

<case selector* :; = CASE <expression> 

<procedure definition* :: = <procedure head* ^statement list> <ending> 
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. 



35 
36 
37 
38 
39 

40 

41 

42 
43 

44 
45 
46 

47 
48 

49 
50 

51 

52 
53 

54 
55 

56 
57 

58 
59 
60 

61 

62 
63 

64 
65 
66 

67 
68 
69 



<procedure head> 



1 
i 

! 
! 



<procedure name> 
<parameter list> 
<pararaeter head> 



<procedure name> ; 

<procedure name) <type> ; 

<procedure naroe> <parameter list> ; 

<procedure name) <parameter list> <type> ; 

<procedure name> INTERRUPT <number> ; 

<label definition PROCEDURE 

= <parameter head> <identifier> ) 

a ( 

! <parameter head> <identif ier> , 



V 



<ending> : := END 

I END <identifier> 

! <label definition> <ending> 



<label definition 

<return statement* 

<call statemont> 
<go to statement* 



! 



<identifier> : 
<number> : 

RETURN 

RETURN <expression> 

CALL <variable> 

<go to> <identifier> 
<go tp> <number> 



GO TO 
GOTO 



<go to> : : = 

i 

declaration statement> 
declaration element> 



<#*• 



= DECLARE <declaration element> 

! declaration statement* , <declaration element> 

<type declaration* 
<identifier> LITERALLY <string> 
<identifier> <data list> 



<data list> 
<data head> 



• • s 

! 



<type declaration> 



<data head> <constant> ) 

DATA ( 

<data head> <constant> , 

: := <identif ier specif ication> <type> * 
! <bound head> <number> ) <type> 
! <type declaration> <initial list> 



<type> 



BYTE 

ADDRESS 

LABEL 



78 <bound head> 



<identif ier specif ication> ( 
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71 
72 

73 
74 

75 
76 

77 

78 

79' 
80 

81 
82 

83 

84 

85 
86 

87 
-88 
89 

90 
91 

92 
93 

94 
95 

96 
97 
98 
99 

100 
101 
102 

103 
104 
105 
106 
107 
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<variable name> 

(identifier Iist> <variable name> } 



identifier list> 

<variable name> 

<based variable> 
<initial list> : 
<initial head> : 

<assignment> : := 

<replace> : : s 
<left part> ::= 
<expression> : : = 



:» ( 

I identifier list> <variable name> , 

<identif ier> 
* <based variable> <identifier> 

<identifier> BASED 

<initial head> <constant> ) 

INITIAL ( 

<initial head> <constant> , 

<variable> <replace> <expression> 
<left part> <assignmenfc> 



<variable> r 

<logical expression> 

<variable> := <logical expression 



<logical expression> 

<logical f actor > : : ! 
< logical secondary> 
<logical primary> : 
<relation> :: s 



<logical fac'tor> 

<logical expression> OR <loqical factor> 

(logical expression XOR <logical factor> 



(logical secondary> 

<logical factor> AND <logical secondary> 

::= <logical priinary> 
! NOT <logical primary> 

:» <arithmetic expression> ft¥ n f «e«ion>' 

! (arithmetic expression> <relation> (arithmetic expression 



< 
> 

<comp> 



<comp> 



< > 

< a 
> » 



(arithmetic expression> 



<terrn> ■ 

<arithnetic expression> + <term> 
(arithmetic expression> - <term> 
<arithmetic expression> PLUS <term> 
<arithmetic expression> MINUS <term> 
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108 

109 
110 
111 
112 

113 
114 
115 
116 
117 
118 

119 
120 

121 
122 

123 
124 

125 
126 

127 



<term> 



<primary> 



i - <term> 

<primary> 

<term> * <primary> ■■ 
<term> / <primary> 
<term> MOD <primary> 

= <constant> 
. <constant> 

<constant head> <constant> ) 
<variable> 
. <variable> 
( <expression> ) 



<constant head> 

<variable> ::= 
i 

<subscript head> 
<constant> : := 



! <constant head> <constant> # 

<identif ier> 

<subscript head> <expression> ) 

: := <identif ier> ( 

! <subscript head> <expression> , 

<string> 

<number> 



<to> 



128 <by> : 

129 <while> 



TO 



BY 



WHILE 
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APPENDIX B, ASCII codes 

■ 

The ASCII (American Standard Code for Information Interchange) 
was adopted by the American National Standards Institute, Inc. 
(ANSI) in 1968. The standard itself, as distinct from the summary 
here presented, is available from ANSI, 1430 Broadway, New York, NY 
10018, as USAS X3. 4-1968. A previous version of this standard was 
adopted by the National Bureau of Standards as a Federal Information 
processing Standard (FIPS 1). ASCII is a seven-bit code, which we 
are representing here by a pair of hexadecimal digits. 



00 


NUL 


01 


SOH 


02 


STX 


03 


ETX 


04 


EOT 


05 


ENQ 


06 


ACK 


07 


BEL 


08 


BS 


09 


HT 


0A 


LF 


0B 


VT 


0C 


FF 


0D 


CR 


0E 


SO 


0F 


SI 


10 


DLE 


11 


DC1 


12 


DC 2 


13 


DC 3 


14 


DC 4 


15 


NAK 


16 


SYN 


17 


ETB 


18 


CAN 


19 


EM 


1A 


SUB 


IB 


ESC 


1C 


FS 


ID 


GS 


IE 


RS 


IF 


US 



20 


SP 


21 


! 


22 


' n 


23 


# 


24 


$ 


25 


% 


26 


& 


27 





28 


( 


29 


) 


2A 


• 


2B 


+ 


2C 


/ 


2D 


- 


2E 


• 


2F 


/ 


30 





31 


1 


32 


2 


33 


3 


34 


4 


35 


5 


36 


6 


37 


7 


38 


8 


39 


9 


3A 


• 
• 


3B 


• 


3C 


< 


3D 


= 


3E 


> 


3F 





40 


@ 


41 


A 


42 


B 


43 


C 


44 


D 


45 


E 


46 


F 


47 


G 


48 


H 


49 


I 


4A 


J 


4B 


K 


4C 


L 


4D 


M 


4E 


N 


4F 





50 


P 


51 





52 


R 


53 


S 


54 


T 


55 


U 


56 


V 


57. 


W 


58 


X 


59 


Y 


5A 


Z 


5B 


[ 


5C 


\ 


5D 


] 


5E 


0* 


5F 





\ 



60 


W 




61 


a 




62 


b 




63 


c 




64 


d 




65 


e 




66 


f 




67 


g 




68 


h 




69 


i 




6A- 


J 




6B 


k 


m 


6C 


1 




6D 


m 




6E 


n 




6F 


o 


<* 


70 


P 




71 


q 




72 


r 




73 


s 




74 


t 




75 


u 




76 


V 




77 


w 




78 


X 


' 


79 


y 




7A 


z 




7B 


[ 


(braces) 


7C 


1 

• 


(bar) 


7D 


] 


(braces) 


7E 


(t 


ilde) 


7F 


DEL 
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f 



SYMBOL 


NAME 


$ 


dollar sign 


s 


egual sign 

■ 


* 


assign 


• 


dot 


/ 


slash 


/* 




*/ 




( 


left paren 


) 


right paren 


.+' ; 


plus 


- 


minus 


■ * 


apostrophe 


* 


asterisk 


< 


less than 


> 


greater than 


<= 


less or egual 


>= 


greater or egual 


<> 


not egual 


• 
• 


colon 


• 
9 


semicolon 


§ 


comma 



USE 

compiler toggles, 
number and identifier spacer 
relational test operator, 
assignment operator 
imbedded assignment operator 
address operator 
division operator 
left comment delimiter 
right comment delimiter . 
left delimiter of lists, 
subscripts, and expressions 
right delimiter of lists, 
subscripts, and expressions 
addition operator 
subtraction operator ^ 
string delimiter 
multiplication operator 
relational test operator 

test 

test 

test 

test 



relational 

relational 

relational 

relational 

label delimiter 

statement delimiter 

list element delimiter 



operator 
operator 
operator 
operator 






* -I 



■": 
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RESERVED WORD 



IF 

THEN 
ELSE 

DO 

PROCEDURE 
INTERRUPT 
END 



} 



USE 






conditional tests and alternative execution 



statement grouping and procedure definition 



DECLARE 

BYTE 

ADDRESS 

LABEL 

INITIAL 

DATA 

LITERALLY 

BASED 



data declarations 



GO 

TO 

BY 

GOTO 

CASE 

WHILE 



unconditional branching and loop control 



CALL 

RETURN 
HALT 
ENABLE 
DISABLE 

OR 

AND 
XOR 
NOT 

MOD 

PLUS 

MINUS 



} 



procedure call 
procedure returft 
■ machine stop j 
interrupt enable 
interrupt disable 



boolean operators 



remainder after division 
add with carry 
subtract with borrow 



EOP 



end of input file (compiler control) 








■ 
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, Pre-declared. Identifiers 




DOUBLE 


■ 


j • ■ 


HIGH 


* . 




INPUT 


* 


' 


LAST 


, 




LENGTH 


* 


* 


LOW 


•; • . 


• 


MEMORY 




. 


OUTPUT 


- 2 


'" " " 


PARITY 


r 




ROL 


Pf 


. 


ROR 


i^* 




SCL 


I 


* 


SCR 
SHL 
SHR 


... , 


_i 


SIGN 


• 




STACKPTR 






TIME 


r 




ZERO 


- 





\' 



■TO 



\ J 



ft-: 
i - r 



